Консультация № 138555
29.05.2008, 19:39
0.00 руб.
0 1 1
навписать процедуру для ввода элементов одномерного массива MAS размерностью N. Дан одномерный массив состоящий из N элементов найти сумму отрицательных элементов данного массива.

Обсуждение

давно
Профессор
401888
1232
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.
Форма ответа