Меню сайта

Задача №2
Ввести массив из 10 элементов, найти произведение элементов массива.
Program -mas_1-
Var a:array[1..10] -of integer-
I:integer-
P:longint-
Begin
For i:=1 to 10 do
Begin
Writeln(‘введите элемент массива -‘)- Readln(a[i])-
End-
P:=1-
For i:=1 to 10 do p:=p*a[i]-
Writeln(‘Произведение =’,p)-
Readln-
End.
Категория: Массивы | Дата: 21.12.12

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