1. с клавиатуры вводятся числа, определить сумму и количество, пока не введено 99 2. с клавиатуры вводятся числа, пока не введено 7, найти сумму только отрицательных чисел. составить программу в паскале

Готово

20 символов тут..

1.
var
a,s,t:longint;
begin
s:=0;
t:=0;
readln(a);
while(a<>99) do
begin
s:=s+a;
inc(t);
read(a);
end;
writeln(s,' ',t);
end.
2.
var
a,s:longint;
begin
s:=0;
readln(a);
while(a<>7) do
begin
if(a<0) then s:=s+a;
read(a);
end;
writeln(s);
end.