Регистрация
Empresssss
18.03.2020 03:36
Информатика
Есть ответ 👍

НУЖНО ДАМ ЛУЧШИЙ ОТВЕТ И 5 ЗВЁЗД​

199
356
Посмотреть ответы 1

Ответы на вопрос:

cake55555
cake55555
4,8(8 оценок)
Var a, n, ch, nch, i: integer; begin write("n: "); readln(n); ch: =1; nch: =0; for i: =1 to n do   begin   read(x);   if x mod 2=0     ch: =ch*x;   else     nch: =nch+x;   end; if ch=1   ch: =0; writeln("произведение чётных: ", ch, "; сумма нечётных: ", nch, "."); end. var i, n, o, p, x: integer; begin write("n: "); readln(n); p: =0; o: =0; for i: =1 to n do   begin   read(x);   if x> 0     inc(p);   if x< 0     inc(o);   end; write("кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". разница: ", abs(p-o)); end.

Популярно: Информатика