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]<k) then k:= a[i] end;writeln (k);end.

Answer 2

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) then
k:= a[i] end;
writeln (k);
end.

Answer 3

maxint? это что?

Answer 4

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

Answer 5

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

Answer 6

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