Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Pascal(массив, указатели, процедура)

Автор: Storm_tpv 17.12.2007, 00:00

нужно написать программу которая с помощью процедуры вычисляет произведени четных элементов находящихся на четных местах одномерного массива array [1..N] of real(N<=100) массив надо передовать в процедуру как параметр

Код


program p1;
type Vector1=array[1..100] of real;
Vector=^Vector1;
var i,n,p:integer;
a:^Vector;
procedure F(a:Vector; var p:integer);
var p1:integer;
begin
p1:=1;
for i:=1 to n do
begin
if a^[i]<>odd and
not(odd(i)) then
p1:=p1*a^[i];
end;
P:=P1;
end;
begin
new(a);
write('aaaaeoa eieee?anoai');
read(n);
for i:=1 to n do
read(a^[i]);
P(x,p);
writeln('p=',p);
dispose(a);
readln;
end.

это мне помогли написать....
но выдает ошибку в строке

пишет что "а" не является переменной массива

Код


for i:=1 to n do read(a^[i]);

Спасибо за ранее