Question

Нужно сгенерировать 15 случайных чисел в массиве, а на интервале от -10 до 10 и найти количество чисел больше 2.(На языке программирования паскаль)

Answer 1

Если я правильно понял, то числа массива от - 10 до 10.

var i,k:integer;

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

begin

randomize;

k:=0;

write('Массив:');

for i:=1 to 15 do

begin

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

if a[i]>2 then k:=k+1;

write(a[i], ' ') +;

end;

writeln('Количество чисел = ', k);

end.