Ввести с клавиатуры n-любых чисел ,найти количество отрицательных чисел( Паскаль )
Answers & Comments
salt2 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);
salt2
1)Спрашиваем сколько чисел хотят ввести, пусть хотят N. 2) Циклом спрашиваем эти N чисел, запоминаем в массив 3) Шагаем по массиву, если число отрицательное то умножаем на него.
Answers & Comments
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);
2) Циклом спрашиваем эти N чисел, запоминаем в массив
3) Шагаем по массиву, если число отрицательное то умножаем на него.