Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задача (циклы)

Автор: geniy 5.12.2007 1:20

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

Автор: pascal65536 5.12.2007 1:44

Последовательность это массив что-ли или с клавиатуры вводить собрался?
А как на чётность будешь проверять знаешь? Или тебе свой способ подсказать?

Автор: geniy 5.12.2007 1:46

Цитата(pascal65536 @ 4.12.2007 21:44) *

Последовательность это массив что-ли или с клавиатуры вводить собрался?
А как на чётность будешь проверять знаешь? Или тебе свой способ подсказать?

самому вводить числа, четность через mod

Автор: neic 5.12.2007 3:55

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

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.