Меню сайта

Задача №29
Дан двумерный массив —n -х —mэлементов. Определить, сколько раз встречается число 7 среди элементов массива.
Program -dmas_5-
uses crt-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
k,i,j:integer-
Begin
Randomize-
k:=0-
For i:=1 to n do begin —
For j:=1 to m do
begin
a[i,j]:=random(8)- —
write(a[I,j]:4)-
if a[i,j] mod 10 = 7 then —
k:=k+1-
End-
Writeln-
end-
If k=0 then Writeln(‘Не встречается’) else Writeln(‘Число -7 =’,k)-
Readln-
End.
Категория: Массивы | Дата: 18.12.12

Меню раздела
Блок