Евлампий
6 год назад
Найти сумму отрицательных, произведение положительных и количесво нулевых элементов в виде блоксхемы
ОТВЕТЫ
Vazholyuk
Aug 2, 2019
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program 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]lt;0 then s:=s+a[i];
if a[i]gt;0 then c:=c+1;
if a[i]lt;gt;0 then p:=p*a[i];
end;
writeln(Сумма:,s);
writeln(Количество:,c);
writeln(Произведение:,p);
readln(s);
end.
283
Смежные вопросы:
