Дан произвольный треугольник ABC, дляДан произвольный треугольник ABC, для которого…

// В массиве A (n) храниться информация о максимальной скорости N легковых автомобилей.// Определить скорость двух самых быстрых автомобилей. // Примечание: задачу решить, // не используя два подхода по массиву. program Array50a; var max1,max2,i,N: integer; a: array [1… 100] of real; begin writeln ('Введите количество машин N (N <= 100) '); readln (N); max1: =1; max2: =1; for i: =1 to n do begin write ('скорость ',i,'машины='); readln (A[i]); if a[i]>a[max2] then begin max1: =max2; max2: =i; end; end; writeln ('Результат'); writeln ('скорость двух самых быстрых автомобилей ',a[max1],',a[max2]); end.