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

Question

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

Comments

через массив можно?

---

да

Answer 1

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