Заданна задача...

[Rastislav]

Не знаю как сделать такое...
Нужно проделать на Паскале...
-Заданная матрица A размерности 5'5. Найти сумму диагональных элементов и разделить на нее первую строку.

[Stilet]

Покажи как вводишь матрицу кодом.

[Rastislav]

Простите... вот.
Условия:
Данная матрица A размером 4'4 (массив задается самостоятельно или автоматическим генерированием случайных чисел).
Задания:
-Заданная матрица A размерности 5'5. Найти сумму диагональных элементов и разделить на нее первую строку.
Я не знаю как это делать...

[Rastislav]

Есть как сделать такое

Заданная матрица A размерности 5'3. Найти произведение неотъемлемых элементов.

А с моим как?

uses crt;
const
a=5; b=3;
var
e:array [1..15] of integer;
mas:array [1..a,1..b] of integer;
i, j, g, c, n:integer;
begin
clrscr;
randomize;
{------------------------------------------------}
for i:=1 to a do
for j:=1 to b do
begin {zapovnennya masiva}
mas[i, j]:=random(10)-5;
if mas[i,j]=0 then mas[i,j]:=1;
end;
{------------------------------------------------}
for i:=1 to a do
begin
writeln;
for j:=1 to b do {vuvedennya masiva}
write (mas[i,j]:3,' ');
end;
writeln;writeln;
{------------------------------------------------}
g:=0;
for i:=1 to a do
for j:=1 to j do
if mas[i,j]>0 then
begin {poshyk dodatnih elementiv}
g:=g+1;
e[g]:=mas[i,j];
c:=g;
end;
{------------------------------------------------}
n:=1;
write ('vsi nevid`emni elementu: ');
for g:=1 to c do
begin
write (e[g],' ');
n:=n*e[g]; {vuvedennya dobytky}
end;
writeln;
write(n);

readkey;
end.

[student-99]

Доброго времени суток . Як слід прописати програму яка б обчислювала суму 1+4+9+16+25+..+n^2 чи добуток 5*7*9*11*13*..*(2n+3) за вибором користувача. Число n вказує користувач за допомогою компоненти ComboBox. Спасибі за допомогу.

[ROMA2PVT]

Rastislav

uses crt;
const
a=5; b=5;
var
mas:array [1..a,1..b] of real;
i, j:integer;
sum:real;
begin
clrscr;
randomize;
{------------------------------------------------}
for i:=1 to a do
begin
for j:=1 to b do
begin {zapovnennya masiva}
mas[i,j]:=random(10)-7;
write ('  ',mas[i,j]:3:0);
end;
writeln;
end;
sum:=0;
for i:=1 to a do
begin
sum:=sum+mas[i,i]
end;
writeln(sum);
if sum<>0 then
begin
for i:=1 to a do
for j:=1 to b do
if (i=1) then
begin
mas[i,j]:=mas[i,j]/sum;
end;
end
else writeln('Sum:=',sum,'!!!');
writeln;
for i:=1 to a do
begin
for j:=1 to b do
begin
write('  ',mas[i,j]:5:2);
end;
writeln;
end;
readkey;
end.