Pascal. Массивы. Найти максимальный элемент и его номер

Pascal. Массивы. Найти максимальный элемент и его номер.

  • program D1KPxx0;
    uses crt;
    var
    a:array [1..10] of integer;
    i,max,k:integer;
    begin
    for i:=1 to 10 do
    begin
    a[i]:=random(101);
    write(a[i],’ ‘);
    end;
    max:=a[1];
    for i:=1 to 10 do
    if max<a[i] then
    begin
    max:=a[i];
    k:=i;
    end;
    writeln(‘    ‘,max);
    writeln(k);
    end.

    Первый элемент считается нулевым) хотя проверь все))) может в конце просто K+1 вывести надо) не помню) мне влом)

  • В переменной max_num находится текущее максимальное значение массива, а в max_index – его индекс




Внимание, только СЕГОДНЯ!