Составьте программу в Паскале для поиска:

a) суммы положительных элементов массива от а от 1 до 100, введенных с клавиатуры

b) произведения отрицательных элементов массива а от 1 до 100

c) количества нулевых элементов массива с сотней элементов

Question

Информатика

Вавуся

29 сентября, 15:46

Составьте программу в Паскале для поиска:

a) суммы положительных элементов массива от а от 1 до 100, введенных с клавиатуры

b) произведения отрицательных элементов массива а от 1 до 100

c) количества нулевых элементов массива с сотней элементов

+2

Ответы (1)

Знаете ответ?

Юрьич · Answer 1

А) uses crt;

const n=10;

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

i, sum:integer;

begin

for i:=1 to n do

begin

a[i]:=random (100) - 50;

write (a[i]:4) ;

if a[i]>0 then sum:=sum+a[i];

end;

writeln;

writeln ('Сумма положительных элементов = ', sum) ;

end.