26 мая, 01:31

Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20; 20]. И найти минимальный элемент массива и его индекс.

+1
Ответы (2)
  1. 26 мая, 03:01
    0
    Var A: array [1 ... 15] of integer;

    i, min, index: integer;

    begin

    min:=A[1];

    for i:=1 to 15 do

    begin

    A[i]:=random (41) - 20;

    write (A[i], ' ') ;

    end;

    writeln;

    for i:=1 to 15 do

    begin

    if min>A[i] then

    begin

    min:=a[i];

    index:=i;

    end;

    end;

    writeln ('Минимальный элемент массива = ', min) ;

    writeln ('Его индекс = ', index) ;

    end.
  2. 26 мая, 03:06
    0
    Program massiv;

    var mass:array[1 ... 15] of integer;

    i, j, a:integer;

    begin

    j:=mass[1];

    for i:=1 to 15 do begin

    mass[i]:=random (40) - 20;

    writeln (mass[i]:3) ;

    if mass[i]
    j:=mass[i];

    a:=i;

    end;

    end;

    writeln ('mass[', a,']=', j) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20; 20]. И найти минимальный элемент массива и его индекс. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы