Двумерный массив

[Jodu]

Дана матрица А[5,5] положительных и отрицательных элементов.АХ[i,j]= (-2) в степени i*j

задание:
1) Записать матрицу.
2) Определить произведение элементов главной диагонали P(i=j) и сумму элементов последней строки S.
3)записать на место отрицательных элементов 10, а на место положительных 20. Вывести массив.
4)Определить сумму элементов всей матрицы.

[kommunist]

вывод матрицы:

program matrica;
uses crt;
const n =5;
type matrix = array[1..n,1..n] of integer;
var a:matrix;
     i:integer;
     j:integer;
begin
    randomize;
    clrscr;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    a[i,j] :=random(100) - 50;
    write(a[i,j],' ');
end;
writeln;
end;
readln;
end.

[kommunist]

program matrica;
uses crt;
const n =5;
type matrix = array[1..n,1..n] of integer;
var a:matrix;
     i:integer;
     j:integer;
     p:integer;
     sstroki:integer;
     summa:integer;
begin
    randomize;
    clrscr;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    a[i,j] :=random(100) - 50;
    write(a[i,j],' ');
end;
    writeln;
end;
    writeln;
    p:=0;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    if  i = j 
    then
   p:=p*a[i,j];
   write('p=',p);
end;
writeln;
end;
   writeln;
   Sstroki:=0;
    for j:= 1 to n do
begin
      inc(s,a[n,j]);
end;
    writeln;
   writeln;
  summa:=0;
 for i:= 1 to n do
begin
    for j:= 1 to n do
 begin
  inc(summa,a[i,j]);'
end;
writeln;
end;
readln;
end.
end.

[kommunist]

program matrica;
uses crt;
const n =5;
type matrix = array[1..n,1..n] of integer;
var a:matrix;
     i:integer;
     j:integer;
     p:integer;
     sstroki:integer;
     summa:integer;
begin
    randomize;
    clrscr;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    a[i,j] :=random(100) - 50;
    write(a[i,j],' ');
end;
    writeln;
end;
    writeln;
    p:=0;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    if  i = j 
    then
   p:=p*a[i,j];
   write('p=',p);
end;
writeln;
end;
   writeln;
   Sstroki:=0;
    for j:= 1 to n do
begin
      inc(s,a[n,j]);
end;
    writeln;
   writeln;
  summa:=0;
 for i:= 1 to n do
begin
    for j:= 1 to n do
 begin
  inc(summa,a[i,j]);'
end;
writeln;
end;
readln;
end.
end.

[Abbatik]

...
p:=1;
s:=0;
s1:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
 a[i,j]:=round(exp(ln(i*j)*(-2)));
 if i=j then p:=p*a[i,j];
 if i=5 then s:=s+a[i,j];
 if a[i,j]<0 then a[i,j]:=10 else a[i,j]:=20;
 s1:=s1+a[i,j];
 write(a[i,j]:4);

end;
writeln;
end;
writeln('p=',p,'   s=',s,'  summa=',s1);
...

[Abbatik]

коммунист извини не увидел твой пост!!!

[kommunist]

Сообщение от Jodu

3)записать на место отрицательных элементов 10, а на место положительных 20. Вывести массив.

program Project2;
uses crt;
const n =5;
type matrix = array[1..n,1..n] of integer;
var a:matrix;
     i:integer;
     j:integer;
begin
    randomize;

    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    a[i,j] :=random(100) - 50;
    write(a[i,j]:2,' ');
end;
writeln;
end;
    writeln;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
   if a[i,j] < 0
   then
   a[i,j]:=10
   else a[i,j] := 20;
   write(a[i,j]:2,' ');
end;
writeln;
end;
readln;


end.

[puporev]

Я смотрю на условие задачи и никак не пойму что это.

АХ[i,j]= (-2) в степени i*j

В коде Kommunista это никак не отражено. В коде Abbatika a[i,j] присвоены значения a[i,j]^-2, хотя написано (-2) в степени i*j. Вообще для a[5,5] это очень большое число. Может a[i,j]:=((-2)^i)*j. Тогда это реальные числа и вместо a[i,j] :=random(100) - 50; написать a[i,j]:=((-2)^i)*j. Значения a[i,j] будут возрастать от -2 для a[1,1] до 160 для a[5.5]. Автор темы как то в стороне от обсуждения. Пояснил бы что нибудь.

[Jodu]

A[i,j]=(-2)^i*j


Например, А[2,2]= (-2)^2*2=(-2)^4=16

[puporev]

Ну а как a[5,5]?