Целочисленный массив. Найти сумму элементов его правой диагонали и произведение элементов левой диагонали

@acy-21 · Регистрация: 06.05.2010

Студворк — интернет-сервис помощи студентам

Дан целочисленный массив В[1..5, 1..5]. Найти сумму элементов его правой диагонали и произведение элементов левой диагонали.

@Puporev · 13.05.2010, 15:30

Pascal

s:=0;
p:=1;
for i:=1 to 5 do
for j:=1 to 5 do
 begin
  if  j=i then p:=p*a[i.j];
  if j=5-i+1] then s:=s+a[i,j];
 end;

@acy-21 · 13.05.2010, 15:46 **[ТС]**

Сам разобрался

Pascal

program D;
const
   N=3;
var
   A: array [1..N, 1..N] of integer;
   x, y: integer;
procedure WriteA;
begin
     for y:=1 to N do
     begin
          writeln;
          for x:=1 to N do
          write(A[x, y]:4);
     end;
end;
 
begin
     randomize;
     for y:=1 to N do
     for x:=1 to N do
     A[x, y]:=random(10);
     WriteA;
     writeln;
     y:=A[1, 1];
     for x:=2 to N do
     y:=y+A[x, x];
     writeln('s=', y);
     y:=A[N, 1];
     for x:=N-1 downto 1 do
     y:=y*A[x, N-x+1];
     writeln('p=', y);
     readln
end.

@acy-21 0 / 0 / 1 Регистрация: 06.05.2010 Сообщений: 15
		1
	Целочисленный массив. Найти сумму элементов его правой диагонали и произведение элементов левой диагонали 13.05.2010, 14:55. Показов 4829. Ответов 2 Метки нет (Все метки) Дан целочисленный массив В[1..5, 1..5]. Найти сумму элементов его правой диагонали и произведение элементов левой диагонали. 0

Опции темы

Целочисленный массив. Найти сумму элементов его правой диагонали и произведение элементов левой диагонали

Решение