Скачать программы Все программы автораЗадание № 27Найти значение и номер наибольшего элемента в массиве из 10 целочисленных элементов.
program mas4; var n,m,i: integer; a: array[i..lO] ofinteger; begin for i:=l to 10 do begin writeln('Введите элемент массива'); readln(a[i]); end; writeln('Элeмeнты исходного массива'); for i:=l to 10 do write(a[i], ' '); writeln; m:=a[l]; n := 1; for i:=2 to 10 do ifa[i]>m then begin m := a[i]; n:= i; end; writeln('Максимальный элемент равен', m, 'и имеет порядковый номер', n); end. |