Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Посчитайте в этом массиве количество положительных количество отрицательных значений.

Var a:array[1..100] of integer;
b,c,d:integer;
begin
c:=0;
d:=0;
for b:=1 to 100 do
begin
a[b]:=random(41)-20;
writeln(a[,b,]= ,a[b]);
if a[b]>0 then c:=c+1;
if a[b]<0 then d:=d+1;
end;
writeln(Количество положительных значений равняется ,c);
writeln(Количество отрицательных значений равняется ,d);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.