Дан одномерный массив натуральных чисел из 12 элементов найдите наименьшее из четных...

Question

Дан одномерный массив натуральных чисел из 12 элементов найдите наименьшее из четных чисел, входящих в массив

Answer 1

Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do  readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]

Comments

const N = 5;
var a: array [1..N] of integer;
k,i:integer;
begin
k:=maxint;
for i:= 1 to N do
readln (a[i]);
for i:=1 to N do begin
if (i mod 2 = 0) and (a[i]k:= a[i] end;
writeln (k);
end.

---

maxint? это что?

---

максимальное число в Integer

---

а просто max нельзя? Это уже ошибка, да?

---

просто макс константы в паскале нет