Паскаль. данная программа работает, но только при некоторых значениях 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.

286

350

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

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

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

Ahha118

Информатика

4,8(58 оценок)

Var a: array [0..9] of integer; i: integer; begin for i : = 0 to 9 do a[i] : = random(50) + 1; for i : = 0 to 9 do if (a[i] mod 2 = 0) then a[i] : = sqr(a[i]); end.