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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.