[решено] программирование на pascal

BlackEric · Отправлено: **15:57, 31-10-2006** | #2

program Project1;

Var
a:array[1..11] of integer;
i,s:integer;

Begin
s:=1;
for i:=1 to 11 do read(a[i]);
writeln;
for i:=1 to 11 do if a[i] mod 2 <>0 then s:=s*a[i];
writeln('s=',s);
readln;
End.

Вроде так.

TauRus · Отправлено: **10:43, 09-11-2006** | #3

а мне кто-то поможет?

задание дали.. а времени катастрофически не хватает разобраться самому...