• ПАСКАЛЬ АБС! СРОЧНО! ПОМОГИТЕ ПОЖАЛУЙСТА!


    1. напишите программу формирования массива размером 5*5 с помощью датчика случайных чисел. Замените в нем нечетные значения элементов максимальным. Выведите на экран исходный и измененный массивы.
    2. Составьте программу формирования и вывода на печать одномерного массива, состоящего из максимальных элементов строк двумерного массива, заданного с помомщью датчика случайных чисел

Ответы 1

  • 1)var a:array [1..5,1..5] of integer;      i,j,max:integer;begin  randomize;  for i:=1 to 5 do     begin        for j:=1 to 5 do           begin            a[i,j]:=random(9)+1;            write (a[i,j]:2);          end;        writeln;      end;  max:=a[1,1];  for i:=1 to 5 do    for j:=1 to 5 do      if a[i,j]>max then max:=a[i,j];  writeln;  for i:=1 to 5 do    begin      for j:=1 to 5 do        begin          if a[i,j] mod 2 = 1 then a[i,j]:=max;          write (a[i,j]:2);        end;      writeln;    end;end.2)var a1:array [1..5,1..5] of integer;      a2:array [1..5] of integer;      i,j,k,max:integer;begin  randomize;  for i:=1 to 5 do    begin      for j:=1 to 5 do         begin          a1[i,j]:=random(9)+1;          write (a1[i,j]:2);        end;      writeln;      max:=a1[i,1];      for k:=2 to 5 do        if a1[i,k]>max then max:=a1[i,k];      a2[i]:=max;    end;  writeln;  for i:=1 to 5 do write (a2[i]:2);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years