СТРУКТУРНЫЙ ТИП ДАННЫХ "МАССИВ"

[Urz-3]

Дан массив чисел:Y=(-1.5,0.3,6.2,-8.4,0,7.2,2.6) . Напишите программу вычисления суммы элементов с нечетными индексами и произведения элементов с четными индексами.

[DM_bite]

var i,sum,pr: integer;
begin
pr:= 1;
sum:= 0;
for i:= 1 to 7 do 
 begin
 if i mod 2<>0 then sum:= sum+Y[i];
 if i mo2 2 = 0 then pr:= pr*Y[i];
 end;
WriteLn(sum,'___',pr);
ReadLn;
end.

[Chudo4258]

По-моему должно быть так:

var i,n: integer;
   Y: array [1..100] of real;
    sum,pr:real;
begin
//заполняете массив из n элементов
pr:= 1;
sum:= 0;
for i:= 1 to n do 
 begin
 if i mod 2 <>0  then sum:= sum+Y[i];
                      else pr:= pr*Y[i];
 end;
WriteLn(sum,'___',pr);
ReadLn;
end.

[Urz-3]

спасибо щас проверю

[DM_bite]

По-моему должно быть так:

Все верно)

[Urz-3]

так теперь все таки как заполнить массив пишу
for i:=1 to7 do read(y[i]); так как знаю только как вводить массив с клавиатуры. а ввети не получается( что делать?

[Chudo4258]

Вводите кол-во эл-тов массива:

Writeln('kol-vo elem. ='); readln(n)

Заполяете массив:

 for i:=1 to n do
  begin
   write('Y[',i,']= '); 
   readln(Y[i]);
  end;

[Urz-3]

ага я делал такое. пишит Invalid numeric format.

[Chudo4258]

покажи свой код полностью

[Urz-3]

program M_7;
uses crt;
var i,sum,pr,n: integer;
Y: array [1..7]of integer ;
begin clrscr;
pr:= 1;
sum:= 0;
writeln('n=') ;
readln(n);
for i:= 1 to n do
begin
write('y[',i,']=');
readln(y[i]);
begin
if i mod 2 <>0 then sum:= sum+Y[i]
else pr:= pr*Y[i];
end; end;
WriteLn(sum,'___',pr);
ReadLn;
end.