12 БАЛЛОВ. СРОЧНО!!! Напишите программу, определяющую колличество отрицательных чисел для введенных с клавиатуры 10 отрицательных чисел
12 БАЛЛОВ. СРОЧНО!!! Напишите программу, определяющую колличество отрицательных чисел для введенных с клавиатуры 10 отрицательных чисел
Гость
Ответ(ы) на вопрос:
ГостьProgram symma;
var
a, s: integer;
begin s:=0;
for i:=1 to 10 do
begin
write('введите отрицательное число');
readln(a);
s:=s+a;
end;writeln('s=',s);end.
Гостьvar
i, k, n: integer;
begin
k := 0;
for i := 1 to 10 do
begin
write('Введите число');
readln(n);
if n < 0 then k := k + 1;
end;
writeln(k);
end.
Задачу понимаю так - вводится 10 чисел, посчитать сколько из них отрицательные
Не нашли ответ?
Похожие вопросы