1. соревнования по плаванию были в самом разгаре, когда стало ясно, что первые четыре места займут мальчики из пятёрки лидеров. их имена: валерик, коля, миша, игорь, эдик, фамилии: симаков, чигрин, зимин, копылов, блинов (имена и фамилии названы в различном порядке). нашлись знатоки, которые предсказали, что первое место займёт копылов, второе - валерик, третье - чигрин, четвёртое - эдик. но ни один из не занял того места, какое ему предсказывали. на самом деле первое место завоевал миша, второе - симаков, третье - коля, четвёртое - блинов, а чигрин не попал в четвёрку сильнейших. назовите имя и фамилию каждого из лидеров.

Интересная логическая . из предсказания ясно, что валерик и эдик - не копылов и не чигрин. из результата ясно, что миша не копылов, не чигрин и не симаков и не блинов, значит, миша зимин, валерик не симаков, коля не симаков, не блинов и не чигрин, то есть он копылов. эдик не блинов. таким образом, миша - зимин, коля - копылов. чигрин - не валерик и не эдик, а игорь. симаков - не валерик, значит, он эдик, а блинов - валерик.  

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i] mod 2 = 0 then s: =s+a[i];

  writeln('сумма четных элементов =', s);

  readln

end.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.