Найти сумму отрицательных из 10 любых вещественных чисел введенных с кавиатуры

program test; var i: integer; n, sum: real; begin    sum: =0;     write('enter 10 numbers: ');     for i: =1 to 10 do    begin      read(n);       if n < 0 then          sum: =sum+n;     end;     writeln('sum = ', sum);     readln; end.

Преимущества: - возможность быстрого поиска нужной информации; - возможность быстрой передачи информации по электронным сетям на большое расстояние; - возможность структурирования текстовой информации; - компактность хранения (относительно бумажных носителей); - автоматическая обработка информации; - возможность криптографической защиты информации. недостатки: - необходимы специальные устройства (компьютеры); - необходима электрическая энергия для работы спец. устройств; - необходимы навыки работы с компьютерами.

Var  a,b,c,n: integer; begin for a: =1 to 7 do   for b: =a+1 to 8 do     for c: =b+1 to 9 do       begin       n: =a*100+b*10+c;       write(n: 4)       end; end.var    i,j,n: integer;     a: array[1..4,1..5]of real; beginfor i: =1 to 4 do  begin  for j: =1 to 5 do    begin    a[i,j]: =random*2-1;     write(a[i,j]: 20: 15);     if a[i,j]> =0 then n: =n+1;     end;   writeln;   end; writeln('количество неотрицательных: ',n); end.var    i,j,sum: integer;     a: array[1..3,1..4]of integer; beginfor i: =1 to 3 do  for j: =1 to 4 do    readln(a[i,j]); writeln('массив: '); for i: =1 to 3 do  begin  for j: =1 to 4 do    begin    sum: =sum+a[i,j];     write(a[i,j]: 4);     end;   writeln('sum=': 8,sum);   sum: =0;   end; end.