Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Крош)
Новичок
0 / 0 / 0
Регистрация: 06.11.2010
Сообщений: 12
06.11.2010, 17:11     дан двумерный массив размером 5x6, вставить после столбцов с максимальными элементами столбец с нулями
  #1
дан двумерный массив размером 5x6, заполненный случайным образом. вставить после столбцов с максимальными элементами столбец с нулями
AdAgent
Объявления
06.11.2010, 17:11
Puporev
Модератор
42384 / 30898 / 1859
Регистрация: 18.05.2008
Сообщений: 65,871
06.11.2010, 18:07
  #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
uses crt;
var x:array[1..5,1..12]of integer;
    n,m,i,j,mx,kmx,l,t:integer;
begin
clrscr;
randomize;
n:=5;
m:=6;
mx:=-maxint-1;
Writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x[i,j]:=random(10);
    write(x[i,j]:3);
    if x[i,j]>mx then mx:=x[i,j];
   end;
  writeln;
 end;
writeln('Максимальный элемент=',mx);
writeln;
writeln('Вставка столбцов из нолей после столбцов с максимальным:');
j:=1;
while j<=m do
 begin
  kmx:=0;
  for i:=1 to n do
  if x[i,j]=mx then kmx:=1;
  if kmx=1 then
   begin
    m:=m+1;
    for l:=1 to n do
     begin
      for t:=m downto j+2 do
      x[l,t]:=x[l,t-1];
      x[l,j+1]:=1;
     end;
    j:=j+2;
   end
  else j:=j+1;
 end;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(x[i,j]:3);
  writeln;
 end;
readln
end.
Крош)
Новичок
0 / 0 / 0
Регистрация: 06.11.2010
Сообщений: 12
06.11.2010, 18:28  [ТС]
  #3
спасибо большое) но мне надо чтоб столбец с нулями вставлялся только после максимального числа из всего массива
Puporev
Модератор
42384 / 30898 / 1859
Регистрация: 18.05.2008
Сообщений: 65,871
06.11.2010, 18:32
  #4
Цитата Сообщение от Крош) Посмотреть сообщение
вставить после столбцов с максимальными элементами столбец с нулями
Максимальный может быть в нескольких столбцах. Или пишите задание по русски.
Крош)
Новичок
0 / 0 / 0
Регистрация: 06.11.2010
Сообщений: 12
06.11.2010, 19:00  [ТС]     дан двумерный массив размером 5x6, вставить после столбцов с максимальными элементами столбец с нулями
  #5
хорошо.
Yandex
Объявления
06.11.2010, 19:00
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Pascal ABC Дан двумерный массив. Вставьте столбец из нулей вместо первого столбцов
Дан двумерный массив. Вставьте столбец из нулей вместо первого столбцов. Народ помогите срочно пожалуйста, сам не шарю,а работу завтра уже сдавать. Прочитал кучу литературы, многие форумы облазил,...
Pascal ABC 2 MetaJIJIyrg 18.06.2014 00:19
Pascal ABC Дан двумерный массив А, состоящий из N строк и M столбцов. Удалить столбец, содержащий минимальный элемент массива некратный 4
Дан двумерный массив А, состоящий из N строк и M столбцов. Удалить столбец, содержащий минимальный элемент массива некратный 4 Нужен код.
Pascal ABC 1 b0nny 12.11.2013 11:57
Pascal ABC Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s
Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s
Pascal ABC 1 Jigx 06.02.2013 19:17
Pascal ABC Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s
uses crt; var a:array of integer; s,n,m,i,j:byte; begin writeln('Êîëè÷åòñâî ñòðîê'); read(n); writeln('Êîëè÷åòñâî ñòîëáöîâ'); read(m); clrscr; for i:=1 to n do
Pascal ABC 2 Nck 25.01.2013 08:53
Turbo Pascal Двумерный массив. Вставить второй столбец после первого столбца, в котором все элементы положительны.
Здравствуйте. Выручайте ;) Дан двумерный массив. Вставить второй столбец после первого столбца, в котором все элементы положительны.
Turbo Pascal 1 TheFreeman 28.12.2012 18:00
Pascal Преобразовать массив A(N,M), включив в него в качестве М+1 столбца, столбец с максимальными элементами каждой строки массива А
преобразовать массив A(N,M), включив в него в качестве М+1 столбца, столбец с максимальными элементами каждой строки массива А
Pascal (Паскаль) 1 useurodi 18.12.2012 15:31
Turbo Pascal Дан массив М(n,k). Вставить столбец и строку из нулей после столбца и стоки на пересечении которых стоит максимальный элемент диагонали
1) Дан массив М(n,k). Переписать в новый массив B(n,k) все положительные четные элементы столбцов. Если таких элементов на столбце меньше k, то конец столбца забить нулями 2) Дан массив М(n,k)....
Turbo Pascal 3 Andrey5995 13.12.2011 23:46
Turbo Pascal двумерный массив. Вставить после столбцов с максимальными элементами столбец из нулей.
дан двумерный массив размером nxm, заполненный случайным образом. Вставить после столбцов с максимальными элементами столбец из нулей. 1 ввод массива с клавиатуры'; 2 ввод массива с помощью...
Turbo Pascal 3 Ketxx 25.03.2011 09:09
Опции темы

Текущее время: 05:28. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.