30.05.2008, 16:28
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Решение задачи с пояснениями в приложении.
Приложение:
uses crt;const n=15;type Tmass=array[1..n]of integer;var a:Tmass;j,sum:integer;procedure Vvod(var ms:Tmass);{процедура ввода массива}var i:integer;beginwriteln(‘Vvedite ‘,n,‘ chisel‘);for i:=1 to n doreadln(a[i]); {вводим числа столбиком}clrscr; {очищаем экран}writeln(‘Massiv:‘);for i:=1 to n dowrite(a[i],‘ ‘); {выводим массив в строчку}writeln;end;beginclrscr;Vvod(a); {вызываем процедуру}sum:=0;for j:=1 to n doif a[j]<0 then {считаем сумму отрицательных}sum:=sum+a[j];writeln(‘Summa otricatelnyh chisel=‘,sum);readlnend.