простенькие задачи

[powerking11]

я культурно попросил,так как для вас это не сложно и этот форум и существует для помощи по таким вопросам.
А утрировать на форуме по таким мелочам и пытаться унизить незнающего человека последнее дело.
С рядами и фактариалами,а также простыми функциями я разобрался.
А с матрицами проблема,можете просто объяснить алгоритм ?

[Serge_Bliznykov]

А с матрицами проблема,можете просто объяснить алгоритм ?

Там, где используется Label.Caption - это вывод данных на форму.
Если у Вас консоль, то пишите вместо этого Write или WriteLn // по обстоятельствам.

Алгорим простой.
заполнить матрицу C
потом найти максимальное значение перебором.
для этого изначально считаем, что самый большой элемент в матрице - первый.
его и заносим в переменную max
потом берём следующий элемент массива, сравниваем его с max, если он больше, то его сохраняем в max, иначе ничего не делаем.
Как только дойдём до конца массива, в переменной max будет максимальное значение из тех, что мы перебрали.
всё.

[powerking11]

спасибо тебе,адекватный человек))

[powerking11]

Подскажите как в конце сделать цикл,нужно перемножить a на b, т.е. каждый a[i][j] на b[i][j]

program p_matrix;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
 MAX_INDEX = 4;
type
 arr_type = array[1..MAX_INDEX,1..MAX_INDEX] of integer;
var
 a,b,c : arr_type;
 
procedure input_matrix(var m : arr_type);
var
  i,j : integer;
begin
  for i:=1 to MAX_INDEX do
    begin
     write('row ' + IntToStr(i) + ': ');
     for j:=1 to MAX_INDEX do read(m[i][j]);
    end;
end;
 
begin
input_matrix(a);
input_matrix(b);

 
readln; 
 
end.

[Serge_Bliznykov]

если в рамках ваших названий переменных, то

for i:=1 to MAX_INDEX do
  for j:=1 to MAX_INDEX do
     c[i,j] := a[i,j]*b[i,j];

p.s. это если C[1,1] равно A[1,1]*B[1,1]
C[2,3] = A[2,3] * B[2,3] и т.д.

[powerking11]

const
 MAX_INDEX = 4;
type
 arr_type = array[1..MAX_INDEX,1..MAX_INDEX] of integer;
var
 a,b,c : arr_type;
 
// процедура построчного ввода матрицы
// числа разделяются пробелами
// по окнчании ввода строки давить Enter
procedure input_matrix(var m : arr_type);
var
  i,j : integer;
begin
  for i:=1 to MAX_INDEX do
    begin
     write('row ' + IntToStr(i) + ': ');
     for j:=1 to MAX_INDEX do read(m[i][j]);
    end;
end;
 
begin
input_matrix(a);
input_matrix(b);
// и вот сдесь нужен двойной цикл?
 
readln; // ожидание нажатия Enter
 
end.

Но если так,то не могу вогнать его туда. Ругаеться какая то несовместимость

const
 MAX_INDEX = 4;
type
 arr_type = array[1..MAX_INDEX,1..MAX_INDEX] of integer;
var
 a,b,c : arr_type;
procedure input_matrix(var m : arr_type);
var
  i,j : integer;
begin
  for i:=1 to MAX_INDEX do
    begin
     write('row ' + IntToStr(i) + ': ');
     for j:=1 to MAX_INDEX do read(m[i][j]);
    end;
end;

begin
input_matrix(a);
input_matrix(b);
for i:=1 to MAX_INDEX do
  for j:=1 to MAX_INDEX do
     c[i,j] := a[i,j]*b[i,j];
 end;
readln;

end.

[Serge_Bliznykov]

program Project19;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MAX_INDEX = 2;
type
  arr_type = array[1..MAX_INDEX, 1..MAX_INDEX] of integer;

procedure input_matrix(var m: arr_type);
var
  i, j: integer;
begin
  for i := 1 to MAX_INDEX do
  begin
    write('row ' + IntToStr(i) + ': ');
    for j := 1 to MAX_INDEX do read(m[i][j]);
  end;
end;

procedure multiply_matrix(const a, b: arr_type; var m: arr_type);
var
  i, j: integer;
begin
  for i := 1 to MAX_INDEX do
    for j := 1 to MAX_INDEX do
      m[i, j] := a[i, j] * b[i, j];
end;

procedure print_matrix(const m: arr_type; const titul: string);
var
  i, j: integer;
begin
  WriteLn(titul);
  for i := 1 to MAX_INDEX do
  begin
    for j := 1 to MAX_INDEX do
      Write(m[i, j]: 4, ' ');
    WriteLn;
  end;
end;


var
  a, b, c: arr_type;

begin
  input_matrix(a);
  input_matrix(b);
  Readln;
  multiply_matrix(a, b, c);
  print_matrix(c, 'Matrix C:');
  readln;
end.

[powerking11]

Теперь буду знать как писать такой цикл)
Вяликае спасибо!