Задать вопрос
2 сентября, 22:11

Заполните линейный массив из 14 элементов случайными целыми числами с помощью функции случайного числа из интервала от - 20 до - 8. Вывести его в одну строку. Найти в массиве на минимальный элемент, на какой позиции он стоит в массиве.

+4
Ответы (1)
  1. 3 сентября, 00:51
    0
    Var

    min, i, position:integer;

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

    begin

    for i:=1 to 14 do begin

    a [i]:=Random (-20,-8) ;

    end;

    min:=a[1];

    position:=1;

    for i:=2 to 14 do begin

    if (a[i] < min) then

    begin

    min:=a[i];

    position:=i;

    end;

    end;

    write ('Массив ') ;

    for i:=1 to 14 do begin

    write (a [i]) ;

    write (' ') ;

    end;

    writeln (' ') ;

    writeln ('Минимальный элемент находится на позиции: ', position) ;

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

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Заполните линейный массив из 14 элементов случайными целыми числами с помощью функции случайного числа из интервала от - 20 до - 8. Вывести ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Во имя радостных мессий, помогите хоть одну задачку. Не шарю ( Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов
Ответы (1)
В pascal. 1) Заполните массив случайными числами из интервала [-50; 50), вывести на экран, посчитать сумму отрицательных элементов. 2) Ввести одномерный массив, вывести его на экран, найти максимальный элемент и его порядковый номер.
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
Дан массив А из N целочисленных элементов. 1) Заполнить массив А целыми числами в интервале[1,100] и вывести на экран. Найти максимальный четный элемент и вывести его на экран.
Ответы (1)
Массив a[1 ... 10] заполните случайными целыми числами в диапазоне от 1 до 10. Определите, есть ли в массиве элемент, равный 5. Ответ выведите в виде слов "Да" или "Нет".
Ответы (1)