const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.
1. a = 14; b = 42 ( см. вложение 1 )
2. x = 2; y = 5; t = 5 ( см. вложение 2 )
3. a = 3; b = 12 ( см. вложение 3 )
4. x = 42; y = 2 ( см. вложение 4 )
Для наилёгкого поиска нужного сайта