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

02.06.2009, 08:47. **Показов** 954. **Ответов** 1

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

Дан двумерный массив n=m=s, Первый столбец поменять местами с третьим.

@mamedovvms · 02.06.2009, 08:54

Pascal

uses crt;
var a:array[1..100,1..100] of integer;
     i,j,k,n,m:integer;
begin
clrscr;
 writeln('Vvedite n,m ');
 readln(n,m);
 for i:=1 to n do
  begin
   for j:=1 to m do
     begin
       a[i,j]:=random(100);
       write(a[i,j]:5);
     end;
   writeln;
  end;
 
for i:=1 to n do
 begin
   k:=a[i,1];
   a[i,1]:=a[i,3];
   a[i,3]:=k;
 end;
 
for i:=1 to n do
  begin
  for j:=1 to m do
   write(a[i,j]:5);
   writeln;
 end;
 
 
readln;
end.

Эрчик
		1
	Двумерный массив 02.06.2009, 08:47. Показов 954. Ответов 1 Метки нет (Все метки) Дан двумерный массив n=m=s, Первый столбец поменять местами с третьим.

	02.06.2009, 08:54

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

Решение