Для заданного массива вычислить и напечатать величины A и n, где A - наибольший элемент...

Question

Для заданного массива вычислить и напечатать величины A и n, где A - наибольший элемент массива, n – его порядковый номер. В делфи, в form

Answer 1

Ответ:

const

N = 20; (здесь вводится размерность массива!)

var

a : array [1..N] of integer;

max1 : integer;

nomer : integer;

i : integer;

begin

max1 := a[1];

for i := 1 to N do

if (a[i] > max1) then

begin

max1 := a[i];

nomer := i;

end;

max1 и nomer это наибольший элемент массива и его порядковый номер. используйте их дальше.

end.