Задать вопрос
13 февраля, 09:36

Написать программу, которая осуществляет вывод одномерного массива, поиск максимального значения и выводит его индекс в этом массиве.

+4
Ответы (1)
  1. 13 февраля, 11:22
    0
    Var i, imax, amax:integer;

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

    begin

    writeln ('Введите числа');

    for i:=1 to 10 do

    begin

    write ('a[', i,'] = ');

    read (a[i]);

    end;

    a[1]:=amax;

    imax:=1;

    for i:=1 to 10 do

    if amax
    begin

    amax:=a[i];

    imax:=i;

    end;

    writeln ('Исходный массив');

    for i:=1 to 10 do

    write (a[i]:4);

    writeln;

    writeln ('Элемент под номером ', imax,' имеет максимальное значение равное ', amax);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Написать программу, которая осуществляет вывод одномерного массива, поиск максимального значения и выводит его индекс в этом массиве. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы