Учеба и наука
Помогите с блок-схемой. Дан массив B (10) . Найти количество отрицательных элементов, сумму отрицательных элементов и их частное. - вопрос №1982386
июнь 7, 2016 г.
-
Всего ответов: 1
-
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.
Похожие вопросы
Телекоммуникации:конференции,интервью,репортаж,подскажите пожалуйста,что подразумевается под этой темой?где можно найти информацию по данной теме
апрель 30, 2016 г.
розробіть проект для розвязання задачі. обчислити обєм трикутної піраміди V=1/3SH? деS-площа основи, а H- висота
июнь 5, 2016 г.
Вася забыл свой цифровой пин-код от старой банковской карты. Он точно помнит, что код начинался с цифры 7 и содержал одну цифру 3. Еще двумя цифрами в пин-коде могут быть любые из оставшихся восьми. О
Вопрос задан анонимно февраль 19, 2016 г.