Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера.

Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера.
Гость
Ответ(ы) на вопрос:
Гость
program zadacha; var a: array[1..5] of integer; max,min,i,nmax,nmin: integer; begin for i:=1 to 5 do begin write ('Ââåäèòå a[',i,']='); readln (a[i]); end; max:=a[1]; min:=a[1]; nmax:=1; nmin:=1; for i:=1 to 5 do begin if a[i]>max then begin max:=a[i]; nmax:=i; end; if a[i]
Не нашли ответ?
Ответить на вопрос
Похожие вопросы