Задать вопрос
18 сентября, 07:26

Задан одномерный числовой массив размерностью n элементов. Найти наименьший нечетный элемент.

+2
Ответы (1)
  1. 18 сентября, 08:46
    0
    Const n = 20;

    var a: array[1 ... n] of integer;

    i, k, minel: integer;

    begin

    //заполнение массива

    //и вывод массива на экран

    randomize;

    writeln ('элементы массива:') ;

    for i:=1 to n do

    begin

    a[i]:=random (50) - 30;

    write (a[i],' ') ;

    end;

    writeln;

    //обработка массива и вывод на экран

    minel:=a[1];

    for i:=2 to n do

    if (a[i] 0) then

    begin

    minel:=a[i];

    k:=i;

    end;

    writeln ('номер элемента: ', k,' значение: ', minel) ;

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