Найти наибольшее число, кратное 3, в матрице размером mxn, элементы которой вводятся с клавиатуры. Pascal
Найти наибольшее число, кратное 3, в матрице размером mxn, элементы которой вводятся с клавиатуры. Pascal
Гость
Ответ(ы) на вопрос:
Гостьconst m = 3;
n = 3;
var a: array[1..m, 1..n] of integer;
i,j,max3:integer;
begin
max3:=-MaxInt;
for i:=1 to m do begin
for j:=1 to n do begin
write('A[',i,',',j,']= ');
readln (a[i,j]);
if (a[i,j] mod 3 = 0)and (max3
Не нашли ответ?
Похожие вопросы