Переставить местами 4 и 5 строку в матрице

@Глория · Регистрация: 07.04.2011

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

Дана целочисленная матрица размера 5х5. Переставить местами 4 и 5 строку.
ПОМОГИТЕ ПОЖАЛУЙСТА

@SEVI · 20.11.2011, 13:19

Как мы вам поможем. У меня кофе кончилось, погадать не выходит. Давайте сюда эту матрицу.

@URUHA · 20.11.2011, 13:49

погадал по картам и они сказали сделать так

Delphi

var
  i,j: Integer;
  a:   array [1..5,1..5] of integer;
begin
for i := 1 to 5 do
  for j := 1 to 5 do
    begin
      a[i,j]:=random(10);
      StringGrid1.Cells[i,j]:=inttostr(a[i,j]);
    end;
  for j := 1 to 5 do
    begin
      i:=a[4,j];
      a[4,j]:=a[5,j];
      a[5,j]:=i;
    end;
for i := 1 to 5 do
  for j := 1 to 5 do
      StringGrid1.Cells[i,j]:=inttostr(a[i,j]);
 
end;

@Глория 2 / 2 / 1 Регистрация: 07.04.2011 Сообщений: 143
		1
	Переставить местами 4 и 5 строку в матрице 20.11.2011, 13:01. Показов 1324. Ответов 2 Метки нет (Все метки) Дана целочисленная матрица размера 5х5. Переставить местами 4 и 5 строку. ПОМОГИТЕ ПОЖАЛУЙСТА 0

@SEVI 31 / 30 / 2 Регистрация: 26.01.2010 Сообщений: 124 Записей в блоге: 1
	20.11.2011, 13:19	2
	Как мы вам поможем. У меня кофе кончилось, погадать не выходит. Давайте сюда эту матрицу. 0

	20.11.2011, 13:49

Переставить местами 4 и 5 строку в матрице

Решение