Регистрация
MeXaHuK0
22.04.2021 10:49
Информатика
Есть ответ 👍

Написать программу в паскаль аbc : напишите программу которая в последовательности натуральных чисел определяет чётное минимальное число. при этом кол-во введённых чисел неизвестно. но не превышает 1000. введённые числа не превышают 30000.в последовательности всегда имеется чётное число. программа должна вывести это одно минимальное чётное число.

178
400
Посмотреть ответы 2

Ответы на вопрос:

goncharovkava
goncharovkava
4,4(8 оценок)
Var n,a,min: integer; begin min: =30001; read(n); for n: = 1 to n do       begin       read(a);       if (a mod 2 = 0)and(a < min) then min: =a;       end; writeln(min) end.
дывавып
дывавып
4,6(34 оценок)
Программа на qbasic dim i as integer, n as integer cls input "введите количество элементов: ", n dim q(1 to n) as integer randomize timer print "исходный массив" for i = 1 to n     q(i) = int(rnd * 220) - 70     print q(i) next i print "результирующий массив" for i = 1 to n     if i mod 3 = 0 then q(i) = 1     print q(i) next i end тестовое решение: введите количество элементов: 13 исходный массив   121   34   27   69   30   95   98   28   136   100   48   120   82 результирующий массив   121   34   1   69   30   1   98   28   1   100   48   1   82

Популярно: Информатика