Задачка на Паскале

  • Автор темы InviZible
  • Дата начала
Статус
Закрыто для дальнейших ответов.
I

InviZible

#1
Самостоятельно изучаю Паскаль и решаю задачи. Забуксовал на этой задачке:

================
Даны натуральное число n, действительные числа А1, ..., Аn. Получить max (A2, A4, ...)
================

Массив использовать нельзя.
Интересует сам код.
У меня много таких однотипных задач. Нет ли где решений этих задач? Гугл не помог =(

Заранее спасибо.
 
A

and75

#2
А что сложного?
Вводим с консоли n, затем к цикле от 1 до n вводим действительные числа...
В процессе ввода проверяем счетчик на четность (i mod 2 =0) и сравниваем числа для нахождения максимального... (if MaxEl < A then MaxEl:=A)
Ну примерно так....

Readln(n);
MaxEl:=-99999999999 // Выбираем какое то заведомо маленькое число.... Оно может быть и другим
For i:=1 to n do
begin
Readln(A);
if (i mod 2) = 0 then
if MaxEl < A then MaxEl:=A;
end;

Writeln(MaxEl);
 
I

InviZible

#3
and75, спасибо. Я не мог понять как сравнивать a1....an между собой

Код:
Program maxik;
Uses
Crt;
Var
n,i:integer;
a,max:real;
Begin
ClrScr;

WriteLn('Let''s go');
max:=-999999999;
i:=0;

WriteLn('Enter the n. Only natural numbers');
ReadLn(n);

for i:=1 to n do
begin
WriteLn('Enter a');
ReadLn(a);
if (i mod 2) = 0 then
begin
if Max < a then
Max:=a;
end;
end;

WriteLn(Max);

WriteLn('Successful!');
ReadLn;

End.
Если кому надо.
 
Статус
Закрыто для дальнейших ответов.