Помогите, пж информатика 9 класс. Составе программу, которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и подсчитывает количество отрицательных элементов. Даю 13 баллов
Answers & Comments
Impersona1
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.
Answers & Comments
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.