Регистрация
Bячеслав
22.01.2021 19:05
Информатика
Есть ответ 👍

Создать массив из 10 элементов. заполнить n его элементов случайными целыми числами из диапазона от 0 до 10 и вывести на экран в строку через пробел. в следующей строке вывести индекс первого элемента массива с наибольшим значением. в следующей строке вывести индекс последнего элемента массива с наибольшим значением. в паскале

187
480
Посмотреть ответы 2

Ответы на вопрос:

piece0fcake
piece0fcake
4,7(84 оценок)

ответ:

program arrmax;

var

  i, i1, i2, amax: integer;

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

begin

  randomize;

  for i : = 1 to 10 do   // заполнение массива случайными числами

    a [i] : = random (11);

  for i : = 1 to 10 do   // вывод на экран элементов массива

    write (a [i], ' ');

  amax : = -1;

  i1 : = -1;

  for i : = 1 to 10 do   // поиск первого максимального элемента

    if a [i] > amax then begin

      amax : = a [i];

      i1 : = i;

    end;

  writeln;

  writeln ('индекс первого элемента массива с наибольшим значением = ', i1);

  amax : = -1;

  i2 : = -1;

  for i : = 10 downto 1 do   // поиск последнего максимального элемента

    if a [i] > amax then begin

      amax : = a [i];

      i2 : = i;

    end;

  writeln ('индекс последнего элемента массива с наибольшим значением = ', i2);

  readln;

end.

объяснение:

yanashabanova1
yanashabanova1
4,8(18 оценок)
I= log₂(n), где i - информационный объем, а n - количество цветов в палитре.

Популярно: Информатика