Дан произвольный двумерный массив целых чисел.Найти максимальный элемент кратный 3 в этом массиве
Дан произвольный двумерный массив целых чисел.Найти максимальный элемент кратный 3 в этом массиве
Гость
Ответ(ы) на вопрос:
ГостьProgram Vigod;
uses crt;
const
n = 12;
m = 13;
var
a:array[1..n,1..m] of integer;
i, j, max: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
{заполняем массив случайными числами}
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(101)-50;
if a[i,j] mod 3 = 0 then max:=a[i,j];
end;
{находим нужный элемент и выводим массив}
for i:=1 to n do
begin
for j:=1 to m do
begin
if (a[i,j] mod 3 = 0) and (a[i,j]>max)then
max:=a[i,j];
write(a[i,j]:4);
end;
writeln();
end;
writeln();
writeln('максимальный элемент кратный 3, равeн ',max);
end.
Проверено - работает на Паскаль АВС
Не нашли ответ?
Похожие вопросы