Написать программу нахождения максимального элемента одномерного массива с помощью опережающего объявления процедур — Pascal(Паскаль)

uses crt;
type  Vector=array[1..25] of Integer;
procedure MaxElem(V: Vector; M: Integer;var max:Integer);forward;
procedure PrnAr(var V: Vector; M: Integer;max:integer);
var  I: Integer;
begin
 for I:=1 to M do
 write(V[I]:5);
 writeln;
 MaxElem(v,m,max);
 write('Max.elem=',max);
end;
procedure MaxElem;
var  I: Integer;
begin
 max:=V[1];
 for I:=2 to M do
 if V[I]>max then max:=V[I];
end;
 
var A: Vector;
    I, N,mx: Integer;
begin
 clrscr;
 write('Kol. elementov: ');
 readln(N);
 for I:=1 to N do
  begin
   write('(', I, ') = ');
   readln(A[I]);
  end;
 writeln('Massiv: ');
 PrnAr(A, N,mx);
 readln;
end.

Leave a Comment

− 1 = 1