Изучение языка программирования
Турбо Паскаль (Turbo Pascal)

На этом сайте можно: скачать среду программирвания Турбо Паскаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль



Условие задачи - из "гостевой книги".

Дан двумерный массив А(4,5). Подсчитайте суммы элементов каждой строки матрицы и запишите их в одномерный массив (вектор). Подсчитайте суммы элементов каждого столбца матрицы и запишите их в одномерный массив (вектор). Формирование этих векторов оформите в виде процедуры.

var
 a:array[1..4,1..5]of integer;
 b:array[1..4]of integer;         {сумма строк}
 c:array[1..5]of integer;         {сумма столбцов}
 i,j:integer;                     {i-строка , j-столбец  для циклов}


PROCEDURE summa_b;
BEGIN
 for j:=1 to 4 do
 for i:=1 to 5 do b[j]:=b[j]+a[j,i];
END;

PROCEDURE summa_c;
BEGIN
 for i:=1 to 5 do
 for j:=1 to 4 do c[i]:=c[i]+a[j,i];
END;

{загружает случайные числа в массив A}
PROCEDURE load_a;
BEGIN
 randomize;
 for j:=1 to 4 do
 for i:=1 to 5 do a[j,i]:=random(10);
END;

BEGIN
 load_a;
 summa_b;
 summa_c;

 writeln('Исходный массив A');
 for j:=1 to 4 do
  begin
   for i:=1 to 5 do write('  ',a[j,i]);
   writeln;
  end;
 write('Сумма строк:');
 for j:=1 to 4 do write('  ',b[j]);
 writeln;
 write('Сумма столбцов:');
 for i:=1 to 5 do write('  ',c[i]);
END.