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

Question

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

Answer 1

Const
   N = 8;
Var
   A:array[1..N] of integer;
   i,iMax:integer;
Begin
Randomize;
Write('Исходный массив:');
iMax:=1;
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] > A[iMax] then iMax:=i;
    End;
WriteLn;
WriteLn('Max = ',A[iMax]);
WriteLn('iMax = ',iMax);
End.