Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Snow_uonce
0 / 0 / 0
Регистрация: 10.01.2013
Сообщений: 1
1

Поменять местами две средних строки, если количество строк четное, и первую со средней строкой, если количество строк нечетное

13.01.2013, 20:47. Просмотров 892. Ответов 1
Метки нет (Все метки)

поменять местами двесредних строки, если количество строк четное, и первую со средней строкой, если количество строк нечетное
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2013, 20:47
Ответы с готовыми решениями:

Если количество столбцов в массиве четное, то поменять строки по правилу
Дан массив размером n×n, элементы которого целые числа. Если количество...

подсчитать количество строк, в которых отличны от нуля только три элемента; поменять местами строки
Доброе время суток! Не могу решить задачки по программированию на TP. Помогите,...

Если длина строки кратна 4 то поменять местами первую и вторую части
Ввести с клавиатуры строку символов. Признак окончания ввода строки - нажатие...

Если длина слова нечётна - вывести слово наоборот, а если чётна - поменять местами первую и последнюю буквы
Введи слово с клавиатуры. Если его длина нечётное число, то выведите слово в...

Вводится натуральное Х. если оно четное, то уменьшить его вдвое, если нечетное – увеличить на 10
Вводится натуральное Х. если оно четное, то уменьшить его вдвое, если нечетное...

1
Puporev
Модератор
55418 / 42547 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
14.01.2013, 11:32 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
if odd(m)then
 begin
  writeln('Количество строк нечетное, обмен первой и средней строк');
  for j:=1 to n do
   begin
    x:=a[1,j];
    a[1,j]:=a[m div 2+1,j];
    a[m div 2+1,j]:=x;
   end;
 end
else
 begin
  writeln('Количество строк четное, обмен двух средних строк');
  for j:=1 to n do
   begin
    x:=a[m div 2,j];
    a[m div 2,j]:=a[m div 2+1,j];
    a[m div 2+1,j]:=x;
   end;
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.01.2013, 11:32

Запишите условный оператор, в котором значение переменной вычисляется по формуле: а + b, если а — нечетное и ab, если а — четное.
Помогите написать пожалуйста..не разбираюсь совсем..

Подсчитать количество строк, имеющих длину меньше средней длины всех строк
6. Подсчитать количество строк, имеющих длину меньше средней длины всех строк....

Если max матрицы равен сумме элементов первой строки, поменять местами первую строку с той, где находится max
Задана матрица. А (4,4). Если максимальный элемент матрицы равен сумме...


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

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

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