программе на языке паскальАВС?
УСЛОВИЕ: найти количество отрицательных чисел и сумму положительных из 50 введенных.
Ответы
Ответ дал:
1
program Poz;
var a, b, c, i: integer;
begin
writeln('Введите 50 чисел.');
for i:=0 to 49 do
begin
readln(a);
if a>0 then
b+=1
else
c+=1
end;
writeln('Количество положительных чисел = ', b, ' ', 'Количество отрицательных чисел = ', c)
end.
lik18da:
программа почему то ругается на begin и пишет неожиданный символ ' '
только мне нужно количество отрицательных чисел а не их сумму, как это можно исправить?
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад