Решаем задачи Абрамян на Паскале. Array29

Array29. Дан массив $$A$$ размера $$N$$. Найти максимальный элемент из его элементов с нечетными номерами: $$A_1, A_3, A_5, …$$ .

Решение:

program Array29;
var
  a:array[1..10] of integer;
  N,i,Max:Integer;


begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  i:=1;
  Max:=a[1];
  While (i<=N) do
   begin
    if a[i]>Max then Max:=a[i];
    i:=i+2;
   end;

  Writeln(Max);
end.

program Array29;

var

a:array[1..10] of integer;

N,i,Max:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

Max:=a[1];

While (i<=N) do

begin

if a[i]>Max then Max:=a[i];

i:=i+2;

end;

Writeln(Max);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array29

Комментарии:

Добавить комментарий Отменить ответ