var
  g:array[1..10]of integer;
  min:integer;
  begin
   for var i:=1 to 10 do       {Заполняем массив рандомом}
    g[i] := random(31)-10;  {Рандом (31) - означает от 0 до 30....  -10 делает рандом от -10 до 20}
       min:=g[1];           {Выбираем минимальным 1е число массива}
       writeln('Сам массив: ',g); 
       write('Чётные элементы: ');
    for var i:=1 to 10 do begin  {Ищем минимальный}
      if min>g[i] then
        min:=g[i];               {переписываем старый минимум}
      if g[i] mod 2 = 0          {Ищем чётные числа}
        then write(g[i],', ');
      end;
    writeln;
    writeln('Минимальный элемент: ',min);
  end.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.10.2019, 10:20

Ответы с готовыми решениями:

Изменить программу, чтобы она работала с длинными именами файлов
Всем привет) Нужна помощь. Есть прога рассчитанная на роботу с короткими именами фалов. Нужна...

Изменить программу, чтобы она работала с любыми расширениями файлов
Нужно,чтобы работала со всеми текстовыми расширениями,включая html.

Доработать программу так, чтобы она работала со строками вместо чисел...
Программа работает, если ввести одно число, и оно потом выводит это число через процедуру. Помогите...

Переделать программу под класс. Т.е. чтобы она работала так же, но с классом
Дано вещественное число а и натуральное число n. Вычислить : а^1,a^2,a^3,..a^n. Операцию...

	28.10.2019, 10:20

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.10.2019, 10:20

Помогаю со студенческими работами здесь

Изменить программу таким образом, чтобы она работала с массивом вещественных чисел
Пытаюсь решить задачу, взятую из одного курса на MVA. Дан исходный код: static void...

Как переделать программу так чтобы она работала в виде процесса а не формы
Здравствуйте. Подскажите пожалуйста как переделать программу так чтобы она работала в виде...

Изменить программу, чтобы она была реализована в процедурах и функциях
Задать массив А1 с помощью генератора случайных чисел только числами, кратными 4. Переписать в...

Измените программу так, чтобы она корректно работала и для случая, когда в исходной строке встречаются лишние пробелы
Здравствуйте. Задание: Измените программу так, чтобы она корректно работала и для случая, когда в...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх