Даны скорости 7 гоночных марок машин. определить две марки у которых скорость наибольшая. в паскале =***********

Var a,max,max2: real; i: integer; begin   writeln('введите скорость');     for i: =1 to 7 do         begin             readln(a);                 if a> max then

                          if max> max2 then

                                max2: =a

                          else

                                max: =a;

                end;

        writeln(max: 4: 2,' ',max2: 4: 2);

end.

            или через массив

в массив заносим 2 элемента. в цикле вводим остальные элементы. в массиве находим минимальный и, если введенный следующий элемент (b) больше минимального массива, то записываем b в массив на место наименьшего.

в результате в массиве два максимальных эл-та

 

var

a: array[1..2]of integer;

n,i,min,j,m,b: integer;

begin

        readln(n);

        readln(a[1],a[2]);

        for i: =3 to n do

                begin

                    readln(b); min: =a[1]; m: =1;

                                        for j: =1 to 2 do

                                                if a[j]< min then

                                                begin

                                                      min: =a[j];

                                                      m: =j;

                                                end;

                                        if b> min then

                                              a[m]: =b;

                    end;

                for i: =1 to 2 do

                        writeln(a[i]);

        end.

Uses crt;   var a, b, s, p: integer; begin write('a='); readln(a); write('b='); readln(b); s: =a*b; p: =2*(a+b); write('s=',s,' ','p=',p); end. p.s.где мы выводим на экран значения площади,там после второй s запятая,затем два апострофа через пробел(для пробела в итоге),затем запятая,потом вывод периметра идет аналогичным образом,вот! спрашивайте,если что не понятно!