Поменять в матрице местами столбец с номером 1 и последний из столбцов, содержащих только положительные элементы.

@zhannnushka · Регистрация: 14.12.2020

Студворк — интернет-сервис помощи студентам

Дана матрица размера M × N. Поменять местами столбец с номером 1 и последний из столбцов, содержащих только положительные элементы. Если требуемых столбцов нет, то вывести матрицу без изменений.

@Puporev · 15.12.2020, 07:39

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
55
56
57
58
var a:array[1..10,1..10]of integer;
    m,n,i,j,k,jp:integer;
begin
repeat
writeln('Введите размерs матрицы от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
randomize;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-3+random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
j:=n;
jp:=0;
while(j>0)and(jp=0)do
 begin
  i:=1;
  k:=0;
  while(i<=m)and(a[i,j]>0) do inc(i);
  if i>m then jp:=j
  else dec(j);
 end;
if jp=0 then
 begin
  writeln('Нет столбца из положительных элементов');
  writeln('Матрица без изменений');
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
   end;
 end
else
 begin
  for i:=1 to m do
   begin
    k:=a[i,1];
    a[i,1]:=a[i,jp];
    a[i,jp]:=k;
   end;
  writeln('Номер последнего столбца из положительных элементов=',jp);
  writeln('Обмен стобцов 1 и ',jp);
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
   end;
 end
 
end.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@zhannnushka 0 / 0 / 0 Регистрация: 14.12.2020 Сообщений: 9

	Поменять в матрице местами столбец с номером 1 и последний из столбцов, содержащих только положительные элементы. 15.12.2020, 06:58. Показов 1036. Ответов 1 Метки нет (Все метки) Дана матрица размера M × N. Поменять местами столбец с номером 1 и последний из столбцов, содержащих только положительные элементы. Если требуемых столбцов нет, то вывести матрицу без изменений. 0