Регистрация
russlan4ik1
04.04.2020 12:48
Информатика
Есть ответ 👍

Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и находит минимальный элемент массива и его индекс

290
405
Посмотреть ответы 2

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

Pyben
Pyben
4,5(97 оценок)

var 

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

  i, min, minindex: integer;   {min - значение минимального элемента массива, minindex - индекс минимального элемента массива}

 

begin

  min: = 20;

  write('исходный массив:   ');

  for i: = 1 to 10 do

  begin

    a[i]: = random(19) + 1;

    write(a[i], '   ');

    if a[i] < min then 

    begin

      min: = a[i];  

      minindex: = i;

    end;

  end;

  writeln;

  write('минимальный элемент массива:   a[', minindex, '] = ', min);

  writeln;

end.

mahachik7
mahachik7
4,6(26 оценок)
12, 51, 10 и 16

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