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

August 2022 1 2 Report

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

Answers & Comments

7limonchiK7

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.

2 votes Thanks 1

golkuprrr860 не совсем то, что нужно было, но все раано спасибо)

7limonchiK7 как не совсем?

golkuprrr860 нудно было в более простой форме)

golkuprrr860 нужно*

7limonchiK7 это самое простое)

golkuprrr860 оно с инета, уже смотрел)

Answers & Comments

рекомендуемые вопросы

Helpful Links

Helpful Social