Меню сайта

Задача №4
Дан массив из —nэлементов, найти количество положительных чисел.
Program -mas_3-
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)-50-write(a[i]:3)-
if a[i]&gt-0 then k:=k+1-
End-
Writeln-
Writeln(‘Количество пол. элементов =’,k)-
Readln-
End.
Категория: Массивы | Дата: 14.12.12

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