Даю 98 балловРешить на паскале1) Дан двумерный массив целых чисел: а)
Даю 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 lt;gt; 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 sumlt;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
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.