Размещено 3 года назад по предмету
Информатика
от georgiynikiforov03
Помогите пожалуйста где здесь ошибка и исправьте неправильно выводит макс. и мин. значения
Program j; uses crt; const n=10; var a: array [1..n] of integer; i,min,max:integer; begin min:=1; max:=1; Writeln ('Введите элементы массива'); For i:=1 to n do Begin Write ('a[',i: 2,']='); Readln(a[i]); End; Writeln ('Контрольный вывод массива: '); For i:=1 to n do Writeln('a[',i:2,']=',a[i]:4);
if a[i]>a[max] then max:=i; if a[i]writeln('Максимальный элемент массива ',a[max],' под номером ',max);
writeln('Минимальный элемент массива ',a[min],' под номером ',min);