Выводится на экран последовательность 20 случайных чисел из промежутка [-10,10]. Определить количество отрицательных чисел больших - 5 в данной последовательности.

Question

Информатика

Адриана

10 ноября, 21:20

Выводится на экран последовательность 20 случайных чисел из промежутка [-10,10]. Определить количество отрицательных чисел больших - 5 в данной последовательности.

+2

Ответы (1)

Знаете ответ?

Мася · Answer 1

Uses crt;

vara:array[1 ... 20]of integer;

i, k:integer;

begin

for i:=1 to 20 do

a[i]:=random (20) - 10;

for i:=1 to 20 do

write (a[i],' ')

; for i:=1 to 20 do begin

if (a[i]-5) then

k:=k+1;

end;

writeln;

writeln ('кол-во отрицательных чисел больше - 5=', k)

end.