Никто не решится наверное) да еще на ночь глядя)
Решение находиться во вложении
Program zadacha;
const pi=3.14;
var r,C,s: real;
Begin
r:=5.4;
C:=2*pi*r;
S:=pi*r*r;
writeln('c=',c);
writeln('s=',s);
end.
Program n1;
const n = 6;
var a : array[1..n] of integer;
i, max, min, temp : integer;
begin
for i := 1 to n do readln(a[i]);
min := 1;
max := 1;
for i := 1 to n do
begin
if a[i] > a[max] then max := i;
if a[i] < a[min] then min := i;
end;
temp := a[max];
a[max] := a[min];
a[min] := temp;
for i := 1 to n do write(a[i],' ');
end.
Надстройки, поиск решения, выделяем.
См приложение.