Дан двумерный массив 6 х4. Пощетать количество элементов во всем массиве которые кратны 3.

Question

Информатика

Секлетея

23 августа, 01:51

Дан двумерный массив 6 х4. Пощетать количество элементов во всем массиве которые кратны 3.

+5

Ответы (1)

Знаете ответ на вопрос?

Кулина · Answer 1

Program Program1;

var

i, j, k:integer;

A: array [1 ... 6,1 ... 4] of integer;

begin

randomize;

for i:=1 to 6 do

for j:=1 to 4 do

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

k:=0;

for i:=1 to 6 do

for j:=1 to 4 do

if a[i, j] mod 3 = 0 then inc (k) ;

writeln ('Кратны трем ', k,' элем.') ;

end.