Регистрация
Cat514
04.11.2020 21:58
Информатика
Есть ответ 👍

Ввести с клавиатуры n-любых чисел ,найти количество отрицательных чисел( паскаль )

285
353
Посмотреть ответы 2

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

kostyuchkova12
kostyuchkova12
4,8(28 оценок)
1.var 2.a, product : real; 3.i, n : integer; 4.begin 5.product: = 1; 6.readln(n); 7.for i : = 1 to n do begin 8.readln(a); 9.if a < 0 then 10.: = product*a; 11.end; 12. writeln(product: 0: 2);
gltomilovglebnopi
gltomilovglebnopi
4,7(41 оценок)
Var    n,i: integer; begin    i: =0;   repeat    readln(n);     if (n mod 2=0) and (n< > 0)  then     inc(i);   until n=0;   writeln;   writeln(i);   readln; end.

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