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

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

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

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

Дан двумерный массив размером n*m, заполненный случайным образом(надо устранить ошибку)
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить...

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

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

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

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

1
Puporev
Модератор
54688 / 42105 / 29073
Регистрация: 18.05.2008
Сообщений: 99,363
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

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

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

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


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

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

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