Хелп!!! как правильно описать вектор в Паскале?

[maxi71]

задание: дано массив(написал), теперь нужно с элементов этого массива>0.2 создать вектор и вывести результат. тож напсал, а препод гаварит что вы напсали не вектор а массив


Program maxi71ex12;
const Pi= 3.14;
var x, y: array [1..21] OF REAL;
k,i: integer;
begin
writeln('x:');
for i:=1 to 21 do begin
x:=i*cos(Pi*i);
writeln('x[',i:1,']=',x:7:2);
end;
writeln;
k:=0;
for i:=1 to 21 do if (x>0.2) then begin
k:=k+1;
y[k]:=x;
end;
if k=0 then begin
writeln('вектор не содержит элементов')
exit
end;
writeln('y:');
for i:=1 to k do writeln('y[',i:1,']=',y:7:2);
readln
end.

[InfStudent]

Я так понимаю что препод от Вас хотел, чтобы вы определили новый тип данных. Так что например напишите так:
type
 vector=array [1..21] OF REAL;
А дальше объявление перепишите так:
x, y: vector
Возможно это решит вашу проблему