Дано 20 чисел найти наибольшее. паскаль. в виде матрицы.

универ soloby

для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из этих элементов. (программа паскаль)

для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из этих элементов.

спросил 1 час назад от cevka в категории егэ (школьный)

решение вопроса

0

uses crt;

const n=5;

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

i,j,max,k,t: integer;

begin

clrscr;

randomize;

writeln('исходный массив');

for i: =1 to n do

begin

for j: =1 to n do

begin

a[i,j]: =random(100);

write(a[i,j]: 3);

end;

writeln;

end;

write('k -> ');

readln(k);

max: =-1;

t: =0;

for i: =1 to n do for j: =1 to n do if a[i,j] mod k=0 then

begin

inc(t);

if a[i,j]> max then max: =a[i,j];

end;

write(k);

writeln('max=',max);

readln;

end.

ответ уже есть.

выше моего