Дан массив X(n*m) ).Элементы массива ввести с клавиатуры.Найти количество элементов кратных 5. Паскаль
Answers & Comments
Julia1409
Var a: array [1..100, 1..100] of integer;i, j, k, c: integer;beginread(n, m);for i:=1 to n do beginfor j:=1 to m do beginread(c);a[i,j]:=c;if c mod 5 = 0 then k:=k+1;end;end;write(k);end.
Answers & Comments