VPF::[Pasсal]Двумерный массив! - Форум программистов

Konstantiiin

Дата 15.1.2007, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 9.12.2006

Репутация: нет
Всего: нет

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

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

Alexeis

Дата 15.1.2007, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

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

Это сообщение отредактировал(а) Alexeis - 15.1.2007, 12:23

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Rodman

Дата 15.1.2007, 12:19 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Код


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.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »