Дана матрица В(5,5). Вычислить произведение элементов, стоящих выше главной диагонали. Напечатать матрицу В и значение произведения.написать код программы в паскале.
Дана матрица В(5,5). Вычислить произведение элементов, стоящих выше главной
диагонали. Напечатать матрицу В и значение произведения.
написать код программы в паскале.
Гость
Ответ(ы) на вопрос:
Гостьvar
i,j,pr:integer;
a: array[1..5,1..5] of integer;
begin
randomize;
pr:=1;
write('Исходный массив:');
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
begin
a[i,j]:=random(4)+1;
write(a[i,j]:2);
if i
Не нашли ответ?
Похожие вопросы