Меню сайта

Задача №6
Дан массив из —nэлементов.Определить, сколько раз встречается число 7 среди элементов массива.
Program -mas_5-
uses crt-
Var a:array[1..1000] -of integer-
k,n,i:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
Randomize-
k:=0-
For i:=1 to n do
begin
a[i]:=random(100)- write(a[i]:4)-
if a[i]=7 then k:=k+1-
End-
Writeln-
If k&gt-0 then Writeln(‘Число 7 встречается ‘,k, ‘раз’) else Writeln (‘­Число 7 не встречается’)-
Readln-
End.
Категория: Массивы | Дата: 08.12.12

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