Question

Написати циклічний алгоритм й програму з масивом. Створити масив А для 8 чисел, заповнити його додатними й від'ємними числами, знайти найбільше число max та його номер imax.

Answer 1

program my;var i:integer; max,num:extended; a : array [1..8] of extended;begin    num := 1;    writeln('Input 8 numbers');    for i := 1 to 8 do    begin            read(a[i]);    if i = 1 then max := a[i];    if max < a[i] then     begin        max := a[i];        num := i;    end;    end;    write(num:0:0);    write(')');    write(max:0:6);end.