ПАСКАЛЬ АБС! СРОЧНО! ПОМОГИТЕ ПОЖАЛУЙСТА!1. напишите программу формирования массива...

Question

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


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

Answer 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.