Меню сайта

Задача №30
Дан массив из —nxmэлементов. Определить, сколько элементов массива больше заданного числа.

Program -dmas_6-
uses crt-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
k,i,j,b:integer-
Begin
Writeln(‘введите число‘)- —
Readln(b)-
Randomize-
k:=0-
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(10)- —
write(a[I,j]:4)-
if a[I,j]&gt-b then —
k:=k+1-
End-
Writeln-
End-
If k&gt-0 then Writeln(‘Чисел больше заданного числа ‘,k) else Writeln (‘Таковых нет ‘)-
Readln-
End.
Категория: Массивы | Дата: 17.12.12

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