Пример решения задачи. Задание. Составить программу подсчёта в одномерном массиве В из n элементов суммы

Задание. Составить программу подсчёта в одномерном массиве В из n элементов суммы отрицательных и произведения положительных элементов массива.

Решение. 1.Блок-схема решения задачи приведена на рисунке.

Рисунок 4.1

Да

2.Текст программы.

var b:array [1..20] of integer;

i,n,S,P:integer;

begin

write('введите n=');

readln(n);

for i:=1 to n do

begin

write('введите b[',i,']=');readln(b[i]);

end;

S:=0;

P:=1;

for i:=1 to n do

if b[i]>0 then P:=P*b[i]

else S:=S+b[i];

writeln(‘ исходный массив b');

for i:=1 to n do

write(b[i]:5);

writeln;

writeln('Сумма S=',s,' Произведение P=',P);

readln;

end.

3.Результат выполнения контрольного примера.

исходный массив b

0 -6 -2 67 4 2

Сумма S=-8 Произведение P=536

Дата добавления: 2015-07-11