Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 4.85
den2100
0 / 0 / 0
Регистрация: 15.05.2009
Сообщений: 5
#1

дан двумерный массив размером 5*8 заполненный случайным образом поменять местами средние столбцы со вторым и предпоследние - Pascal

16.05.2009, 04:44. Просмотров 2041. Ответов 1
Метки нет (Все метки)

помогите решить пожалуйста:'(
http://www.cyberforum.ru/pascal/thread1820812.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2009, 04:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос дан двумерный массив размером 5*8 заполненный случайным образом поменять местами средние столбцы со вторым и предпоследние (Pascal):

Дан двумерный массив. Поменять местами средние столбцы.
Дан двумерный массив. Поменять местами средние столбцы.

Дан массив целых чисел (N=15), заполненный случайным образом числами из промежутка [-25, 31].
помогите пожалуйста написать программу: Дан массив целых чисел (N=15),...

Дан массив целых чисел (n=25), заполненный случайным образом числами из промежутка [-20,85]
Дан массив целых чисел (n=25), заполненный случайным образом числами из...

Дан двумерный массив n*n. В каждом столбце максимальный элемент поменять местами с диагональным элементом
Дан двумерный массив n*n. В каждом столбце максимальный элемент поменять...

Дан двумерный массив nxm элементов. найти минимальное и мах значения и поменять их местами
Дан двумерный массив nxm элементов. найти минимальное и мах значения и поменять...

1
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
16.05.2009, 10:56 #2
Лучший ответ Сообщение было отмечено den2100 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
const
m=5;
n=8;
var
a:array[1..m,1..n] of integer;
i,j,x,y:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  x:=a[i,n div 2];
  a[i,n div 2]:=a[i,2];
  a[i,2]:=x;
  y:=a[i,n div 2+1];
  a[i,n div 2+1]:=a[i,n-1];
  a[i,n-1]:=y;
 end;
writeln('Перестановки::');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2009, 10:56
Привет! Вот еще темы с решениями:

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

Дан массив целых числ заданных случайным образом из диапазона от 23 до 235
Дан массив целых числ заданных случайным образом из диапазона от 23 до 235 ....

Дан массив на 20 элементов заполнены случайным образом от -10 до +20. Найти максимальный элемент.
Помогите плиз))) составить программу Дан массив на 20 элементов заполнены...

Ввести случайным образом (используя функцию random) двумерный массив чисел типа byte
Ввести случайным образом (используя функцию random) двумерный массив чисел типа...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru