Program minimuml; const m:=10; Var a:array[1..m] of real i,k:integer; min:real; Begin
writeln('введите массив'); for i:=1 to m do write(a[i]:4:3,' '); writeln; k:=1; min:=a[k]; for i:=1 to m do if min>a[i] then begin k:=i; min:=a[i]; end; writeln(' минимальное число массива: ',min:4:3); readln; end.
m-число элементов массива, i- номер элемента с максимальным значением , чтобы его вывести нужно добавить следующую запись:
writeln(' номер элемента: ', i);
перед readln
Для нахождения максимального чиса элемента в программе > заменить на <