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

Ответ Создать новую тему
 
Танюх@
Новичок
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 24
27.06.2012, 14:17     Заменить максимальный элемент каждой строки на противоположный по знаку
  #1
Люди кто нибуль может помочь((
очень нужно...(((
Дан двумерный массив размером n*m.
1. Заменить максимальный элемент каждой строки на противоположный по знаку
2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей.
3. Удалить все столбцы, в которых есть отрицательный элемент
4. Поменять местами первый и последний столбцы.
AdAgent
Объявления
27.06.2012, 14:17
Airanod-d-d-d
Новичок
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 6
27.06.2012, 17:14     Заменить максимальный элемент каждой строки на противоположный по знаку
  #2
№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.
Добавлено через 7 минут
№4
Код 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
const n=5;
const m=10;
var
massiv:array[1..n,1..m] of integer;
row,column,exchange:integer;
flag:boolean;
begin
Randomize;
 //заполняем массив случайным образом и показываем его на экране
 writeln('исходный массив');
 for row:=1 to n do begin
  for column:=1 to m do begin
  massiv[row,column]:=random(100);
  write(' ',massiv[row,column]:3);
  end;
  writeln;
 end;
 //меняем во всех строках первый и последний элементы
 for row:=1 to n do begin
  exchange:=massiv[row,m];
  massiv[row,m]:=massiv[row,1];
  massiv[row,1]:=exchange;
 end;
 writeln;
//выводим результат
 writeln('первый и последний столбец поменялись местами');
 for row:=1 to n do begin
  for column:=1 to m do begin
  write(' ',massiv[row,column]:3);
  end;
  writeln;
 end;
 
 readln;
 
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Delphi Как найти максимальный элемент массива в каждой строке?
Как находится максимальный элемент массива в каждой строке? Никак понять не могу
Delphi для начинающих 3 UchenikO 20.03.2014 19:55
Delphi Вставить после каждой строки, содержащей максимальный по модулю элемент, последнюю строку
добрый день, пишу программу но с одним заданием проблемы, не знаю как вставлять или удалять из массива строки: Дан двумерный массив размером n*m, заполненный случайным образом. 2. Вставить...
Delphi для начинающих 1 popcorn93 20.10.2013 18:16
Delphi Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив
Помогите, очень нужна помощь. Завтра последний день, когда можно сдать:( Задание: Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив. Матрицу ввести с...
Delphi 3 snakewood 14.06.2013 06:58
Delphi Дана прямоугольная матрица A(nxm). Заменить наименьший элемент каждой строк, начиная со второй, наибольшим элементом предыдущей строки.
Массив. Дана прямоугольная матрица A(nxm). Заменить наименьший элемент каждой строк, начиная со второй, наибольшим элементом предыдущей строки.Помогите решить, заранее спасибо Добавлено через 2...
Delphi для начинающих 4 keeet 16.01.2013 20:02
Delphi Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца
Имеется двухмерный массив 5x6 в виде компонента StringGrid, кнопка «Расчет», кнопка «Случайные значения» и компонент «Memo» для отображения текста варианта задания. Кнопка «Случайные значения»...
Delphi 1 alexander91 20.05.2012 18:05
Delphi Заменить максимальный элемент каждой строки на противоположный по знаку
Ребятушки, помогите, пожалуйста, создать программу в среде Delphy Дан двумерный массив размером M*N, заполненный случайным образом. 1. Заменить максимальный элемент каждой строки на...
Delphi для начинающих 2 DMart92 02.04.2011 20:47
Delphi Заменить максимальный элемент каждой строки номером столбца, в которой он находится.
Дан двумерный массив размером n*m. 1. Заменить максимальный элемент каждой строки номером столбца, в которой он находится. 2. Заменить нечетный элемент каждой строки нулем
Delphi для начинающих 1 LORD90 28.12.2010 16:31
Delphi 1.Заменить максимальный элемент каждой строки матрицы нулем.
задание: необходимо разработать программу позволяющую производить обработку текстовой и числовой информации в файлах. При выполнении задания необходимо размерности массива и сам массив считать из...
Delphi для начинающих 1 Namiko 25.04.2010 18:17
Опции темы

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