задача (циклы) Опции

[geniy]

есть задачка простая, помогите решить, срочно надо.. заранее спасибо!!
Даны натуральное число N и последовательность A1, A2, …,AN. Определить наибольшее из нечетных чисел.

[neic]

Вот держи. Сделано на скорую руку.

uses crt;
var s,p,MAX,i,q: integer;
		a: array[1..99] of integer;
begin
clrscr;
MAX:=0;
Writeln('Введите размерность последовательности:');
Read(s);

For i:= 1 to s do
begin
	Writeln('Введите занчение A[',i,']');
	read(p);
	a[i]:=p;
end;

For i:=2 to s do
begin
	q:= i mod 2;
	If q = 0 then
	 if MAX < a[i] then	MAX:=a[i]
end;
Writeln('MAX=',MAX);
readkey;
end.

Сообщение отредактировано: neic - 4.12.2007 23:56