На случай, если Вы "mod" не изучали:
# Если t = 1 - нечетные, t = 2 - четные
const k = 10;
var a: array[1..k] of integer; N,M,i,t: integer;
begin
writeln ('Ввод значений:');
for i=1 to k do read (a[i]);
i:=1; N:=a[1]; N:=a[2]; t=1;
for i:=3 to k do
begin
if (a[i]<N) AND (t=1) then N:=a;
if (a[i]>M) AND (t=2) then N:=a;
if(t=1) then t:=2
else t:=1;
end;
writeln('Max = ',M);
writeln('Min = ',N);
readln;
end
Мне кажется, или в этой строке ошибка?
i:=1; N:=a[1]; N:=a[2]; t=1;
Наверно должно быть
i:=1;N:=a[1]; M:=a[2]; t=1;
И тут тоже...
if (a[i]<N) AND (t=1) then N:=a;
if (a[i]>M) AND (t=2) then N:=a;
Наверно так?
if (a[i]<N) AND (t=1) then N:=a;
if (a[i]>M) AND (t=2) then M:=a;