................................
Program n1;
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.
Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write('Введите число для завершения программы введите 0000): ');
readln(n);
if n <> 0 then begin
if n >= 0 then sum := sum + n;
if n < 0 then p := p * n;
end
else writeln('ИТОГ');
writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);
writeln();
until n = 0000;
<span>end.
Вроде так</span>
Когда человек собирает сведения об окружающем мире, он собирает информацию. Эта информация, накапливаясь тысячелетиями, сохраняется в виде примет, личного опыта. Фундаментальные знания о природе, связанные с наблюдением за ней, легли в основу таких наук как физика, химия, биология, геология и смежных с ними современных учениях. Ответом на вопрос станет только одно слово - информация.