Регистрация
динка82
29.07.2020 06:50
Информатика
Есть ответ 👍

Дан массив из 10 элементов. Найти количество положительных элементов, сумму отрицательных и кол-во нулей.

145
288
Посмотреть ответы 2

Ответы на вопрос:

rayanova81
rayanova81
4,8(85 оценок)

var 

mas: array[1..10] of integer; 

plus, minus, i:integer;

begin

randomize;

write('Массив: ');

for i := 1 to 10 do begin 

mas[i]:=random(10)-5; 

write(' ',mas[i]); 

if (mas[i] > 0) then   

plus:=plus+1; 

if (mas[i] < 0) then   

minus:=minus+1; 

end;

writeln();

writeln('Положительных = ', plus);

writeln('Отрицательных = ', minus);

end.

Folknesss14
Folknesss14
4,4(19 оценок)

ответ:

1,3,4 целые 2-с плавающей точкой

объяснение:

Популярно: Информатика