Меню сайта

Задача №9
Дан массив из —nэлементов.Найти произведение элементов с нечетными индексами.
Program -mas_7-
Var a:array[1..1000] -of integer-
n,i:integer-
s:longint-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
s:=1-
randomize-
For i:=1 to n do
Begin
a[i]:=random(50)- write(a[i]:4)-
If i -mod 2&gt-0 then s:=s*a[i]-
End-
Writeln-
Writeln(‘Произведение =’,s)-
Readln-
End.
Категория: Массивы | Дата: 04.12.12

Меню раздела
Блок