Question

Что я не так делаю? паскаль поиск двух максимальных чисел 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.

Answer 1

Нашел. у тебя ma изначально 1, тоесть условие ma<>max почти всегда не будет иметь значения