составить программу дан массив с пятью случайными числами в интервале [5..8]. Найти количество элементов больших чем 6

1

Ответы и объяснения

2012-11-22T15:27:49+00:00

var
n,i:integer;
x: array [1..10] of integer;
begin
n:=0;
for i:=1 to 5 do
begin
x[i]:=random(4)+5;
write(x[i]:4);
if x[i]>6 then
n:=n+1;
end;
writeln;
write('Количество элементов больших чем 6 равно - ',n);
end.