Информатика, опубликовано 2018-08-22 19:06:09 by Гость
Найти сумму отрицательных, произведение положительных и количесво нулевых элементов в виде блоксхемы
Ответ оставил Гость
123456789101112131415161718192021program test;var a:array[0..15] of integer; s,c,p:integer; i:byte;begin s:=0;c:=0;p:=1; //Заполняем значениями for i:=0 to 15 do begin readln(a[i]); if a[i]0 then c:=c+1; if a[i]0 then p:=p*a[i]; end; writeln(Сумма:,s); writeln(Количество:,c); writeln(Произведение:,p); readln(s);end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на