Из 6 введенных на клавиатуре чисел найти сумму и количество отрицательных.

1

Ответы и объяснения

2013-11-20T16:11:47+04:00
Program z1;
var
i,s,r:integer;
a:array[1..6] of integer;
begin
writeln('Введите числа');
for i:=1 to 6 do
begin
readln(a[i]);
If a[i]<0 then
r:=r+1;
s:=s+a[i];
end;
writeln('Сумма: ',s);
writeln('Кол-во отрицательных чисел: ',r);
end.