В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
energy525
energy525
03.01.2020 07:16 •  Информатика

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

Показать ответ
Ответ:
vitusyaischuk
vitusyaischuk
21.06.2020 05:17
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.

Так=)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота