Ввести с клавиатуры n-любых чисел ,найти количество отрицательных чисел( Паскаль )
Ответы на вопрос
Ответил salt2
0
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
0
Примерно так
Ответил salt2
0
1)Спрашиваем сколько чисел хотят ввести, пусть хотят N.
2) Циклом спрашиваем эти N чисел, запоминаем в массив
3) Шагаем по массиву, если число отрицательное то умножаем на него.
2) Циклом спрашиваем эти N чисел, запоминаем в массив
3) Шагаем по массиву, если число отрицательное то умножаем на него.
Ответил Карина111111231
0
спасибо огромное
Новые вопросы
Математика,
2 года назад
Математика,
8 лет назад
Литература,
8 лет назад
Алгебра,
9 лет назад
История,
9 лет назад