Написать программу Заполнить массив из 15 элементов случайными числами (-50;50)Посчитать сумму всех элементов массива Посчитать количество отрицательных
элементов.
Если нужно на Паскале:
program test;
var mas : array[1..15] of integer;
sum : integer;
otr : integer;
i: integer;
begin
sum := 0;
otr := 0;
randomize;
for i:=1 to 15 do
begin
mas[i] = -50 + random(100);
sum := sum + mas[i];
if mas[i] < 0
then otr := otr + 1;
end;
writeln (Сумма: + sum);
writeln (Количество отрицательных элементов: + otr);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
