Задать вопрос
1 июля, 19:56

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

+2
Ответы (1)
  1. 1 июля, 20:50
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «составить программу, которая заполняет массив а [1 ... 10] случайными целыми числами в диапазоне от 1 до 20 и находит минимальный элемент ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы