Дан массив фамилий студентов 1-го курса и массив их результатов в беге на 100 метров. составьте команду из четырех лучших бегунов для участия в эстафете.

Const   n=6;   a: array[1..n] of string=       ('иванов','петров','сидоров','козлов','баранкин','пупкин');   b: array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3);   // массивы используются чтобы избежать в примере ручного ввода var   i,j,k: integer;   t: real;   s: string;   sa: array[1..n] of string;   sb: array[1..n] of real; begin   for i: =1 to n do begin sa[i]: =a[i]; sb[i]: =b[i] end;   // сортировка по возрастанию времени   for i: =1 to n-1 do       for j: =1 to n-1 do           if sb[j]> sb[j+1] then begin               s: =sa[j]; sa[j]: =sa[j+1]; sa[j+1]: =s;               t: =sb[j]; sb[j]: =sb[j+1]; sb[j+1]: =t               end;   // вывод   for i: =1 to 4 do writeln(sa[i],' - ',sb[i]) end. пример петров - 13.9 козлов - 14.2 баранкин - 14.5 иванов - 15

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

 

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

 

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

 

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

 

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.