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

Паскаль. данная программа работает, но только при некоторых значениях a[i]. я думаю, что дело в этом условии (a[j])> (a[i]). если a[j] примет отрицательное значение, то в ответе выйдет "не найдено", так же будет выведено не найдено если первое число в массиве не удовлетворяет условию(a[i] mod 2=0) and (a[i]> 0), но является самым маленьким. я понимаю почему, исправить. const n=8; var a: array[1..n] of integer; j,i: integer; begin for i: =1 to n do read(a[i]); j: =1; for i: =1 to n do begin if ((a[j])> (a[i])) and (a[i] mod 2=0) and (a[i]> 0) then j: =i end; if (a[j] mod 2=0) and (a[j]> 0) then write(a[j]) else write('не найдено'); end.

Показать ответ
Ответ:
goshaaaAa
goshaaaAa
17.07.2020 16:11
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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота