Главная » Помощь в учебе » Школьные знания, ответы и решения школьных заданий » Информатика

Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от –20 до 20

Нашли ошибку? Напишите нам
0.0/5, Голосов: 0

Учебник по Информатике 9 класс Семакин

Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от –20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.    
program zad_4_nica;
var Rand: array[1..100] of integer;
   i, plus, minus: integer;
begin
randomize;
{Заполнение массива случайными числами и вывод их на экран}
for i:=1 to 100 do begin
   Rand[i]:=-20+random(41);
   write (Rand[i], '; ');
end;
{Подсчет положительных и отрицательных чисел в массиве}
plus:=0;
minus:=0;
for i:=1 to 100 do begin
   if Rand[i]>0 then plus:=plus+1
   else if Rand[i]<0 then minus:=minus+1;
end;
{Вывод количества положительных и отрицательных чисел в массиве}
writeln;
writeln ('Количество положительных чисел: ', plus);
writeln ('Количество отрицательных чисел: ', minus);
end.