Регистрация
Алкадиеныч
10.06.2023 08:13
Информатика
Есть ответ 👍

очень надо
[не пишите не знаю, мне тоже надо] ​

253
382
Посмотреть ответы 1

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

dkflbvbh1972
dkflbvbh1972
4,5(45 оценок)
Const   n = 8;   nmax = 32767; var   a: array[1..n] of integer;   i, t, min: integer; begin   min : = nmax;   for i : = 1 to n do   begin       read(t); a[i] : = t;       if (t > 0) and (t mod 2 = 0) then           if min > t then min : = t   end;   if min < > nmax then       writeln('минимальный положительный четный элемент равен ', min)   else       writeln('в массиве нет четных положительных элементов') end. тестовое решение: 353 638 -1000 -452 320 -18 19 0 минимальный положительный четный элемент равен 320

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