Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Крош)
Новичок
0 / 0 / 0
Регистрация: 06.11.2010
Сообщений: 12
06.11.2010, 17:11     дан двумерный массив размером 5x6, вставить после столбцов с максимальными элементами столбец с нулями
  #1
дан двумерный массив размером 5x6, заполненный случайным образом. вставить после столбцов с максимальными элементами столбец с нулями
AdAgent
Объявления
06.11.2010, 17:11
Puporev
Модератор
42185 / 30699 / 1787
Регистрация: 18.05.2008
Сообщений: 65,342
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
Модератор
42185 / 30699 / 1787
Регистрация: 18.05.2008
Сообщений: 65,342
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 MetaJIJIyrg 18.06.2014 00:19
MathCAD Вставить перед столбцом с максимальными элементами столбец из нулей. Удалить столбец с номером k
С помощью датчика случайных чисел сформировать матрицу m x n. Вставить перед столбцом с максимальными элементами столбец из нулей. Удалить столбец с номером k. Опять же после формирования матриц...
MathCAD Kisaragi 24.05.2013 11:45
C (СИ) Даны матрицы Q (12x9) и С (7x8), заполненные случайным образом. Вставить после столбцов с максимальными элементами столбцы из нулей
1.Даны матрицы Q (12x9) и С (7x8), заполненные случайным образом. Вставить после столбцов с максимальными элементами столбцы из нулей.
C для начинающих tyrbotroll 13.12.2012 23:04
Turbo Pascal Вставить перед столбцом с максимальными элементами столбец из нулей
Составить программу, позволяющую с помощью датчика случайных чисел сформировать матрицу (NxM). Значения N и M ввести с клавиатуры. Вставить перед столбцом с максимальными элементами столбец из...
Turbo Pascal ValeraProk 23.10.2012 20:00
PascalABC.NET Дан двумерный массив размерности NxM. Вставить после столбцов, содержащих максимальный элемент матрицы, столбец из нулей
Дан двумерный массив размерности NxM. Вставить после столбцов, содержащих максимальный элемент матрицы, столбец из нулей.
PascalABC.NET NoviiMir 21.10.2012 16:26
Turbo Pascal Дан двумерный массив, вставить в него столбец
Дан двух мерный массив вставитьв него столбец из нулей перед столбцом с номерном k.
Turbo Pascal Владимир94 18.05.2012 08:56
C++ Дан двумерный массив размером 5 * 8, заполненный случайным образом. Вставить перед всеми строками, первый элемент которых делится на3,вставить....
Дан двумерный массив размером 5 * 8, заполненный случайным образом. Вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей. есть задача но в ней чето не правильно...
С++ для начинающих Lizardomsk 28.02.2012 16:28
Turbo Pascal двумерный массив. Вставить после столбцов с максимальными элементами столбец из нулей.
дан двумерный массив размером nxm, заполненный случайным образом. Вставить после столбцов с максимальными элементами столбец из нулей. 1 ввод массива с клавиатуры'; 2 ввод массива с помощью...
Turbo Pascal Ketxx 25.03.2011 09:09
Опции темы

Текущее время: 11:04. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.