Организовать новый одномерный массив, содержащий суммарное (или среднее) значение каждой строки матрицы (любая на ваше усмотрение). Рассчитать и вывести в один столбец.
Ответы
Ответ дал:
1
Ответ:
program Project1;
const
mmax = 25;
nmax = 10;
type
TArr1 = array [1..mmax,1..nmax] of integer;
TArr2 = array [1..mmax] of real;
procedure InfOutMatrix (arr: TArr1; marr,narr: integer);
// Процедура для вывода элементов двумерного массива на экран.
var
i,j: integer;
begin
for i:= 1 to marr do
begin
for j:= 1 to narr do
Write(arr[i,j]:4);
writeln;
end;
end;
procedure InfInMatrix (var arr: TArr1; marr,narr: integer);
// Процедура для ручного ввода значений элементов массива.
var
i,j: integer;
begin
for i:= 1 to marr do
for j:= 1 to narr do
begin
write('Введите элемент ',i,' строки ',j,' столбца: ');
Readln(arr[i,j]);
end;
end;
Объяснение:
personanonim22:
Выбери самый лучший буду очень рад
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад