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