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

02.04.2010, 15:52. **Показов** 1129. **Ответов** 1

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

1)Дан двухмерный массив.Поменять местами элементы,расположенных в нижним правом и верхнем левых углах.
2)Определить сумму элементов побочной диагонали массива.

@STGE · 02.04.2010, 16:39

1.

Pascal

Program mas;
Uses crt;
Const n=5;
Var a: array[1..n,1..n] of byte; i,j: byte;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(10);
Write(a[i,j]:3);
end;
Writeln;
end;
a[1,1]:=a[1,1]+a[n,n];
a[n,n]:=a[1,1]-a[n,n];
a[1,1]:=a[1,1]-a[n,n];
Writeln('Результат: ');
For i:=1 to n do
begin
For j:=1 to n do
Write(a[i,j]:3);
Writeln;
end;
End.

Добавлено через 9 минут
2.

Pascal

Program sum;
Uses crt;
Const n=5;
Var a: array[1..n,1..n] of byte; i,j,s: byte;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(10);
Write(a[i,j]:3);
end;
Writeln;
end;
For i:=1 to n do
For j:=1 to n do
s:=s+a[i,n-i+1];
Writeln('Сумма элементов побочной диагонали = ',s);
End.

Alexxx090
		1
	Двумерные Массивы 02.04.2010, 15:52. Показов 1129. Ответов 1 Метки нет (Все метки) 1)Дан двухмерный массив.Поменять местами элементы,расположенных в нижним правом и верхнем левых углах. 2)Определить сумму элементов побочной диагонали массива.

Опции темы

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

Решение