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