Задача № 239 на 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.
|
