Здравствуйте, tanya.hryanina!
[code lang=pascal]type mas=array[1..10] of integer;
procedure Massiv(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Введите размер массива ',c,' от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Массив ',c);
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
end;
function MaxElem(a:mas;n:integer):integer;
var w:integer;
begin
if n>1 then
begin
w:=MaxElem(a,n-1);
if a[n]<w then MaxElem:=w else MaxElem:=a[n];
end
else MaxElem:=a[1];
end;
var a,b,c:mas;
na,nb,nc:integer;
begin
randomize;
massiv(a,na,'A');
writeln('Максимальный элемент=',MaxElem(a,na));
massiv(b,nb,'B');
writeln('Максимальный элемент=',MaxElem(b,nb));
massiv(c,nc,'C');
writeln('Максимальный элемент=',MaxElem(c,nc));
end.[/code]