Программа: Смена первого и последнего элементов двумерного массива

Задача: Заполнить двумерный массив. Поменять местами первый и последний элементы.

PROGRAM perviiposlednii;
	var i,k,s :integer;
		M	  :array[1..10,1..10] of integer;
BEGIN
	Randomize;
	s:=0;
	for i:=1 to 10 do
	  begin
		for k:=1 to 10 do
		  begin
			M[i,k]:=random(10);
			Write(M[i,k],' ');
		  end;
		Writeln
	  end; // Забитие и вывод массива
	
    s:=M[1,1];
	M[1,1]:=M[10,10];
	M[10,10]:=s;  // Замена 1 и 10
	Writeln;

	for i:=1 to 10 do
	  begin
		for k:=1 to 10 do
		  begin
			Write(M[i,k],' ');
		  end;
		Writeln
	  end; //Снова вывод
END.

Просмотрело: 2285

Возможно, Вы искали: