Может так:
Vara:array[1..5]of integer;
a1,a2,a3,a4,a5,max:integer;
function f(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
a1:=random(10);
a2:=random(10);
a3:=random(10);
a4:=random(10);
a5:=random(10);
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
writeln(a5);
writeln;
max:=f(a1,a2);
max:=f(max,a3);
max:=f(max,a4);
max:=f(max,a5);
writeln('max=',max);
<span>end.</span>
Думаю, что верные ответы под B, F, G
Var
i:integer;
a:array[1..11]of integer;
begin
for i:= 1 to 11 do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
write('Кратны 2: ');
for i:=1 to 11 do
if a[i] mod 2=0 then write(a[i],' ');
<span>end. </span>
А1. 3) устройство вывода предназначено для передачи информации от компьютера пользователю;