Question

Помогите, пж информатика 9 класс. Составе программу, которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и подсчитывает количество отрицательных элементов. Даю 13 баллов

Answer 1

Program otricanie;
var
 mas:array [1..16] of integer;K,i:integer;
begin
K:=0;
for i:=1 to 16 do 
begin 
mas[i]:=Random(41)-20; 
if mas[i]<0 then K:=K+1;
 end; 
Writeln(k)
end.