Даю 98 баллов Решить на паскале 1) Дан двумерный массив целых ...
Даю 98 баллов Решить на паскале 1) Дан двумерный массив целых чисел: а) сумму нечетных элементов в каждом столбце (строке); в) количество элементов кратных А или В; с) найти столбец с минимальной суммой элементов. 2) Дан двухмерный массив размером nxn, заполненный целыми числами. а) все его элементы, кратные трем, записать в одномерный массив.
Есть ответ
12.12.2022
457
Ответ
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
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022