Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.
Очень срочноо!!!!
Ответы
Ответ дал:
1
var massive:array[1..100] of integer;
positive, negative, i:integer;
begin
positive:=0; negative:=0;
for i:=1 to 100 do
massive[i] := random(41)-20;
for i:=1 to 100 do
if massive[i] >=0 then positive:=positive+1
else negative:=negative+1;
writeln('Количество положительных позиций: ', positive) ;
write('Количество отрицательных позиций: ', negative);
end.
golkuprrr860:
не совсем то, что нужно было, но все раано спасибо)
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад