Из 3х массивов макс элемент

Посмотреть архив целиком
program procedur;

{$APPTYPE CONSOLE}

uses
SysUtils;
type mas=array[1..30] of integer;
var A,B,C,D:mas;
na,nb,nc,max:integer;

procedure VVOD (var T:mas; var n:integer);
var i:integer;
begin writeln ('Vvedite kolichestvo elementov massiva');
readln (n);
writeln('Vvedite massiv');
for i:=1 to n do read (T[i]);
readln;
end;

procedure VIVOD (T:mas; n:integer);
var i:integer;
begin writeln('Massiv');
for i:=1 to n do write (T[i],' ');
writeln;
end;

function Max_el(T:mas;n:integer):integer;
var i,max:integer;
begin max:=T[1];
for i:=1 to n do
if T[i]>max then max:=T[i];
Max_el:=max;
end;

begin
VVOD(A,na);
D[1]:=Max_el(A,na);
VVOD(B,nb);
D[2]:=Max_el(B,nb);
VVOD(C,nc);
D[3]:=Max_el(C,nc);
max:=Max_el(D,3);
writeln('Maksimalni element ',max);
VIVOD(A,na);
VIVOD(B,nb);
VIVOD(C,nc);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.