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.
Лазерных точно не существует.
На наступний слайд, у іншу програму, у інший файл
Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)
Var n:integer; c:char;
begin
write('n (от 1 до 26):');
readln(n);
for c:='z' downto chr(ord('z')-n+1) do write(c:2);
end.
Пример:
<span>n (от 1 до 26): 5
z y x w v</span>