Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Массивы Задача № 239 на Pascal

Задача № 239 на Pascal

Оцените материал
(0 голосов)

Задача № 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.
Прочитано 6839 раз
Другие материалы в этой категории: « Задача № 238 на Pascal Задача 240 на Pascal »

Авторизация



Счетчики