Помогите с блок-схемой. Дан массив B (10) . Найти количество отрицательных элементов, сумму отрицательных элементов и их частное.

Ответы

const n=100;
var mas: array [1..n] of integer;
i, k_pol, k_otr :integer;
sum, pr:real;
begin
clrcsr;
sum:=0;
pr:=1;
k_pol:=0;
k_otr:=0;
for i:=1 to n do mas:=random(100)-50;
for i:=t to n do
begin
if mas>0 then
begin
k_pol:=k_pol+1;
sum:=sum+mas;
end;
if mas<o>;
end;
end;

writeln( 'кол-во положит: ', k_pol);
writeln('кол-во отриц: ', k_otr);
writeln('сумма положит: ', sum);
writeln('произведен отриц: ', pr);
end.
13.10.16
Рекомендуем личную консультацию

Елена Васильевна

Меня зовут Елена Васильевна, я репетитор по математике из г. Гомель (Беларусь). Занимаюсь со школьниками (8 по 11 класс), а также со студентами.
Посмотреть всех экспертов из раздела Учеба и наука > Информатика