Меню сайта

Задача №25
Ввести двумерный массив — 3х3 — элементов, найти произведение элементов массива.
Program -dmas_1-
Var a:array[1..10,1..10] -of integer-
i,j:integer-
P:real-
Begin
For i:=1 to 10 do
-For j:=1 to 10 do
Begin
Writeln(‘введите элемент массива -‘)- —
Readln(a[i,j])-
End-
P:=1-
For i:=1 to 10 do
— For j:=1 to 10 do
-p:=p*a[i,j]-
Writeln(‘Произведение =’,p:5:1)-
Readln-
End.
Категория: Массивы | Дата: 19.12.12

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