Создайте целочисленный массив А[5.3]. Вывести на экран элементы массива, кратные 5, и их индексы

Question

Информатика

Лев

3 января, 10:58

Создайте целочисленный массив А[5.3]. Вывести на экран элементы массива, кратные 5, и их индексы

+5

Ответы (1)

Знаете ответ?

Абакум · Answer 1

Var a:array[1 ... 5,1 ... 3];

i, j:integer;

begin

for i:=1 to 5 do

for j:=1 to 3 do

begin

readln (a[i, j]) ;

end;

for i:=1 to 5 do

for j:=1 to 3 do

begin

if (a[i, j] mod 5=0) and (a[i, j]0) then writeln (a[i, j], i, j) ;

end;

end.