Написать программу Заполнить массив из 15 элементов случайными числами (-20; 80) Посчитать сумму всех элементов массива Посчитать количество отрицательных элементов

Question

Информатика

Тая

19 июня, 21:12

Написать программу Заполнить массив из 15 элементов случайными числами (-20; 80) Посчитать сумму всех элементов массива Посчитать количество отрицательных элементов

+3

Ответы (1)

Знаете ответ на вопрос?

Еленя · Answer 1

const

n = 15;

var

a:array[1 ... n] of integer;

i, Count, Summ:integer;

begin

randomize;

Count : = 0;

Summ : = 0;

for i : = 1 to n do

begin

a[i] : = random (101) - 20;

write (a[i], ' ') ;

inc (Summ, a[i]) ;

if a[i] < 0 then

inc (count) ;

end;

writeln;

writeln ('Summ = ', Summ) ;

writeln ('Count = ', count) ;

readln;

end.