Регистрация
kofpik
21.03.2022 14:04
Информатика
Есть ответ 👍

1. дан целочисленный массив из двадцати пяти элементов. элементы могут принимать значения от -500 до 500. найти минимальное значение среди элементов массива которые имеют четное значение и не деляться на 7.

109
421
Посмотреть ответы 2

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

fraumiss93
fraumiss93
4,7(28 оценок)
Var a: array [1..25] of integer;     i, m, c: integer; begin       for i : = 1 to 25 do       begin           a[i] : = random(1000) - 500;           writeln('[', i, '] => ', a[i]);       end;       m : = 501;       for i : = 1 to 25 do           if ((m > a[i]) and (a[i] mod 2 = 0) and (i mod 7 > 0)) then           begin               m : = a[i];               c : = i;           end;       writeln('[', c, '] => ', a[c]); end.так=)
kristinalyapina1
kristinalyapina1
4,5(61 оценок)
Лепи из пластилина  потом попробуй по макету сделать из того материала из которого надо.

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