Program Task1;
Uses CRT;
Const n = 5;
Var a: Array[1..n] of Real;
     x: Real;
     i: Byte;
Begin
ClrScr;
Randomize;
Writeln('Массив чисел');
For i := 1 to n do
     Begin
     a[i] := (Random(10) - 5.0) + (Random(10) - 5.0) /10;
     Writeln(a[i]:0:1);
     End;
Writeln(#13#10,'Ищем максимум');
x := a[1];
For i := 2 to n do
     Begin
     If (a[i] > x) then x := a[i];
     End;
Writeln('Максимум: ',x:0:1);
Writeln(#13#10,'Находим значение выражения');
x := 0.0;
For i := 1 to n do
     Begin
     x := x + a[i]*a[i];
     End;
Writeln('Значение выражения (a[1]^2+a[2]^2+...+a[n]^2)^1/2 равно: ',sqrt(x):0:4);
Readkey;
End.

Uses CRT;
Const max = 7;
Type rec = record
            Naim: String;
            Cost: Real;
            end;
Var a: Array[1..max] of rec;
     i, j: Byte;
     t: rec;
Begin
ClrScr;
a[1].Naim := 'Картофель';       a[1].Cost := 40.0;
a[2].Naim := 'Сливочное масло'; a[2].Cost := 50.0;
a[3].Naim := 'Чай';             a[3].Cost := 46.0;
a[4].Naim := 'Сахар';           a[4].Cost := 28.0;
a[5].Naim := 'Пиво';            a[5].Cost := 32.0;
a[6].Naim := 'Рыба';            a[6].Cost := 55.0;
a[7].Naim := 'Хлеб';            a[7].Cost := 23.0;
For i := 1 to max do
     a[i].Cost := a[i].Cost + a[i].Cost * 0.10;
Writeln('Вывод по возрастанию цен (увеличеных на 10%)');
For i := 1 to max do
     For j := i to max do
         If (a[i].Cost > a[j].Cost) then
            Begin
            t := a[i];
            a[i] := a[j];
            a[j] := t;
            End;
For i := 1 to max do
     Begin
     Write(a[i].Naim); GotoXY(30,WhereY); Writeln(a[i].Cost:0:1);
     End;
ReadKey;
End.