Найти наибольший элемент двумерного массива. В паскале. Обязательно использовать...

October 2021 1 9 Report

Найти наибольший элемент двумерного массива. В паскале. Обязательно использовать функцию или процедуру

Answers & Comments

maonang Const n=5;
var i,j:integer;
a:array[1..n,1..n] of integer;
Max:integer;

procedure p_max(input_mass:integer);
begin
if input_mass>Max then
Max:=input_mass;
end;

//Заполняем массив
procedure zapolnenue;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
  a[i,j]:=Random(1000);
end;

begin
Randomize;
zapolnenue;

writeln('Массив:');
for i:=1 to n do
begin
   for j:=1 to n do
   begin
    write(a[i,j],' ');
    p_max(a[i,j]);
   end;
   writeln;
end;
writeln;

writeln('Max = ',Max);
end.

1 votes Thanks 1

dana matrica razmerom 34 najti summu elementov matricy v paskale obyazatelno

Answer

Answers & Comments

dana matrica razmerom 34 najti summu elementov matricy v paskale obyazatelno

рекомендуемые вопросы

Helpful Links

Helpful Social