Turbo Pascal для начинающих




Задача 167


{ Вычисление суммы элементов массива (по столбцам) const
ROW=3; { кол-во строк } COL=5; { кол-во столбцов } var
a: array[1..ROW,1..COL] of integer; { массив } s: array[1..COL] of integer; { сумма элементов } i,j: integer; begin
writeln('Введите массив.');
writeln('После ввода элементов каждой строки,',
COL,' целых чисел, нажимайте <Enter>'); for i:=l to ROW do { ROW строк } begin
write('->');
for j:=l to COL-1 do
read(a[i,j]) ; readln(a[i,COL]); end;
writeln('Введенный массив'); for i:=l to ROW do begin
for j:=1 to COL-1 do
write(a[i,j]:4); writeln(a[i,COL]:4); end; { обработка }
for j:=1 to COL do { для каждого столбца }
for i:=l to ROW do { суммируем эл-ты одного столбца }
writeln('---------
for i:=l to COL do
write(s[i]:4) ; writeln;
readln;
end.









Начало    Назад    Вперед