Что я не так делаю?
паскаль
поиск двух максимальных чисел
program ee;
const N = 5;
var
a : array [1 ... 5]of integer;
iMax, max, iiMa, ma, i : integer;
begin
for i: = 1 to N do begin
read (a[i]) ;
end;
write (' числа ', a) ;
iMax : = a[1]; / / присваиваем для начального сравнения
for i : = 1 to N do
if a[i] > iMax then//сравниваем 5 чисел и берём наибольшее
begin
iMax : = a[i]; //число
max : = i; //на каком месте
end;
write (' первое максимальное значение ', iMax,' ', max) ;
iiMa : = a[1]; //присваиваем для начального сравнения
ma : = 1; //
for i : = 1 to N do//
if (iiMa < a[i]) and (ma < max) then / / ищем второе наибольшее число
begin
iiMa : = a[i]; //
ma : = i//
end;
write (' второе максимальное значение ', iiMa,' ', ma) ;
end.
