Массивы. Pascal

[Andrew5674]

Задание 1
Объявить массив размерностью N.
Заполнить элементы массива.
Распечатать значения элементов массива.
Вывести значения в обратном порядке.
Вывести значения элементов с четными индексами

Пожалуйста помогите!

[s-andriano]

Что именно вызывает затруднения?

[Andrew5674]

Сообщение от s-andriano

Что именно вызывает затруднения?

Вывести значения элементов с четными индексами

[Poma][a]

А в чем может быть проблема? Не знаете как определить четно ли число? Или как вывести не знаете? А может Вы о развилках не слышали?

Ну раз проблема только с этим, то ждем-с остальные решенные части, только после них (возможно) будут предприняты некоторые телодвижения со стороны форумчан..

[Andrew5674]

Сообщение от Poma][a

А в чем может быть проблема? Не знаете как определить четно ли число? Или как вывести не знаете? А может Вы о развилках не слышали?

Ну раз проблема только с этим, то ждем-с остальные решенные части, только после них (возможно) будут предприняты некоторые телодвижения со стороны форумчан..

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure Revers(var m:mas;n:byte);
var i:byte;
    x:real;
begin
for i:=1 to n div 2 do
 begin
  x:=m[i];
  m[i]:=m[n-i+1];
  m[n-i+1]:=x;
 end;
writeln('Массив в обратном порядке:');
for i:=1 to n do
write(m[i]:0:2,' ');
readln
end;
var a:mas;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
Revers(a,n);
end.

[Stilet]

i:=2; while i<=n do begin
  write(a[i]:0:2,' ');
  inc(i,2);
 end;

[Andrew5674]

Сообщение от Stilet

i:=2; while i<=n do begin
  write(a[i]:0:2,' ');
  inc(i,2);
 end;

В каком месте программы это нужно вставить?

[s-andriano]

Сообщение от Stilet

i:=2; while i<=n do begin
  write(a[i]:0:2,' ');
  inc(i,2);
 end;

В случае, когда число шагов заранее известно, целесообразнее применять цикл for:

for i := 2 to n div 2 do
  write(a[i*2]:0:2,' ');

Andrew5674, вместо

procedure Revers(var m:mas;n:byte);
var i:byte;
    x:real;
begin
for i:=1 to n div 2 do
 begin
  x:=m[i];
  m[i]:=m[n-i+1];
  m[n-i+1]:=x;
 end;
writeln('Массив в обратном порядке:');
for i:=1 to n do
write(m[i]:0:2,' ');
readln
end;

лучше поступить так:

procedure Revers(var m:mas;n:byte);
var i:byte;
begin
  writeln('Массив в обратном порядке:');
  for i:=n downto 1 do
    write(m[i]:0:2,' ');
end;

Заодно не будет проблем на последнем шаге:
Вас ведь просят вывести в обратном порядке, а не перевернуть сам массив. И по условию подразумевается, что выводить четные нужно в исходном порядке, а не в обратном. А если количество элементов нечетно, то вообще будут выведены не те элементы, что нужно.