Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pasсal]Двумерный массив!

Автор: Konstantiiin 15.1.2007, 10:44

Заполнить двумерный массив F(5,3) с клавиатуры и поменять местами первый и последний столбцы.Вывести исходный и измененный массивы!

ПОмогите PLZZZZZ!!!!!!

Автор: Alexeis 15.1.2007, 12:11

Модератор: не обижайтесь, но мне уж надоело исправлять, pasCal пишется через "Си" а не через букву "Кей". Так нас машина не поймет.

Автор: Rodman 15.1.2007, 12:19

Код


Uses crt;
var a:array[1..5,1..3] of integer;
    i,j,n:integer;
BEGIN
clrscr;
randomize;
for i:=1 to 5 do
 for j:=1 to 3 do
  begin
   a[i,j]:=random(9)+1;
  end;
for i:=1 to 5 do
  for j:=1 to 3 do
   begin
      gotoxy(i*4,j*2);
      write(a[i,j]);
   end;
for i:=1 to 5 do
  begin
   n:=a[i,1];
   a[i,1]:=a[i,3];
   a[i,3]:=n;
  end;
 for i:=1 to 5 do
  for j:=1 to 3 do
   begin
      gotoxy(i*4,j*2);
      write(a[i,j]);
   end;
readln;
END.