Цитата:
Сообщение от Мартышонок
Что делать???((
|
вешаться )))
я просто ошибся в именах чуть чуть
var
{ОШИБКА БЫЛА В ЭТОЙ СТРОКЕ ВМЕСТО МАС НАДО А}A:array [1..100] of integer;
proizv:longint;
i,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
proizv:=1
for i:=1 to n do
if i mod 2 <> 0 then proizv:=proizv*a[i];
writeln(proizv);
end.