98 решить на паскале 1) дан двумерный массив целых чисел: а) сумму нечетных элементов в каждом столбце (строке); в) количество элементов кратных а или в; с) найти столбец с минимальной суммой элементов. 2) дан двухмерный массив размером nxn, заполненный целыми числами. а) все его элементы, кратные трем, записать в одномерный массив.

1.                                                            

program raf105;

const

 n = 3; //Размер матрицы

var

 ar: array[1..n,1..n] of integer;

 n_sum,a,b,ab_c,min_sum,sum,min_pos,i,j: integer;

begin

write('Введите 2 числа (A, B): ');

readln(a,b);

for i:=1 to n do

begin

 writeln('Заполните столбец ',i);

 for j:=1 to n do

 begin

   readln(ar[i,j]);

   if (ar[i,j] mod a = 0) or (ar[i,j] mod b = 0)

     then ab_c+= 1;

 end;

end;

writeln;

write('А) Суммы нечётных элементов по столбцам: ');

for i:=1 to n do

begin

 n_sum:= 0;

 for j:=1 to n do

 begin

   if ar[i,j] mod 2 <> 0

     then n_sum+= ar[i,j];

 end;

 write(n_sum,' ')

end;

writeln;

writeln('В) Количество элементов кратных ',a,' или ',b,': ',ab_c);

min_sum:= 10000;

sum:= 10000;

for i:=1 to n do

begin

 if sum<min_sum

   then begin

     min_sum:= sum;

     min_pos:= i-1;

   end;

 sum:= 0;

 for j:=1 to n do

   sum+= ar[i,j];

end;

writeln('С) Минимальная сумма элементов у столбца с номером: ',min_pos);

end.

2.                                                            

program raf105;

const

 n = 3; //Размер матрицы

var

 a: array[1..n,1..n] of integer;

 b: array[1..n*n] of integer;

 counter,i,j: integer;

begin

for i:=1 to n do

begin

 writeln('Заполните столбец ',i);

 for j:=1 to n do

 begin

   readln(a[i,j]);

   if a[i,j] mod 3 = 0

     then begin

       counter+= 1;

       b[counter]:= a[i,j];

     end;

 end;

end;

writeln;

write('Массив элементов кратных трём: ');

for i:=1 to counter do

 write(b[i],' ');

end.

                                                             PascalABC 3.4.2