одномерный массив

[curly182]

помогите разобраться с задачей по формированию массива. Само задание: Задана последовательность X = (x1, x2, …, x10).
Сформировать из неё одномерный массив Y, состоящий из ненулевых элементов Xi, имеющих чётные индексы. Полученный массив напечатать в строчку.
X = {92.34, 0.51, -7.53, 0.0, 0.58, 4.3, 7.0, 9.5, 0.34, 2}.
Кое что набросал:
program lab5;
uses wincrt;
var i, YIndex: integer;
type mas= ARRAY[1..10] of real;
type Y= ARRAY[1..10] of real;
const X: mas = (92.34, 0.51, -7.53, 0.0, 0.58, 4.3, 7.0, 9.5, 0.34, 2.0);
begin
YIndex:=0;
for i:=1 to 10 do
if (i mod 2 = 0) and (X[i] <> 0) then
begin
YIndex:=YIndex+1;
Y[YIndex]:=X[i];
end;
write('Massiv Y:');
for i:=1 to YIndex do
write(Y[i],' ')
end.

Пишет ошибку на строчке Y[YIndex]:=X[i]; - типа отсутствует "(" error 88. Кто знает как исправить - отпишитесь

[Sazary]

Нельзя так
У вас объявлен тип mas, но нет переменной этого типа (Y).

uses wincrt;

type mas= ARRAY[1..10] of real;

const X : mas = (92.34, 0.51, -7.53, 0.0, 0.58, 4.3, 7.0, 9.5, 0.34, 2.0);
var i, YIndex: integer;
Y : mas;

begin
YIndex:=0;
for i:=1 to 10 do
 if (i mod 2 = 0) and (X[i] <> 0) then
  begin
  YIndex:=YIndex+1;
  Y[YIndex]:=X[i];
  end;
write('Massiv Y:');
for i:=1 to YIndex do
 write(Y[i]:5:2,' ');
readln;
end.

ps Код заключайте в теги CODE ("#" на панели в окне редактирования).

[curly182]

Спасибо)))))