Меню сайта

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

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