Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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.
Yandex
Объявления
27.06.2012, 17:14
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Visual Basic Заменить максимальный элемент каждой строки на противоположный по знаку
Приветствую всех. Помогите, пожалуйста, решить следующие задания на двумерные массивы: Дан двумерный массив n * m. 1. Заменить максимальный элемент каждой строки на противоположный по знаку 2....
Visual Basic erniegurt 08.12.2013 12:47
Delphi Вставить после каждой строки, содержащей максимальный по модулю элемент, последнюю строку
добрый день, пишу программу но с одним заданием проблемы, не знаю как вставлять или удалять из массива строки: Дан двумерный массив размером n*m, заполненный случайным образом. 2. Вставить...
Delphi для начинающих popcorn93 20.10.2013 18:16
Delphi Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив
Помогите, очень нужна помощь. Завтра последний день, когда можно сдать:( Задание: Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив. Матрицу ввести с...
Delphi snakewood 14.06.2013 06:58
C++ Заменить максимальный элемент каждой строки на противоположный по знаку
Дан двумерный массив размером 5 * 6, заполненный случайным образом. Заменить максимальный элемент каждой строки на противоположный по знаку . В инете есть такая же задача. Дан двумерный массив...
С++ для начинающих AforeveR 01.03.2012 11:59
Delphi Заменить максимальный элемент каждой строки на противоположный по знаку
Ребятушки, помогите, пожалуйста, создать программу в среде Delphy Дан двумерный массив размером M*N, заполненный случайным образом. 1. Заменить максимальный элемент каждой строки на...
Delphi для начинающих DMart92 02.04.2011 20:47
Delphi Заменить максимальный элемент каждой строки номером столбца, в которой он находится.
Дан двумерный массив размером n*m. 1. Заменить максимальный элемент каждой строки номером столбца, в которой он находится. 2. Заменить нечетный элемент каждой строки нулем
Delphi для начинающих LORD90 28.12.2010 16:31
Delphi 1.Заменить максимальный элемент каждой строки матрицы нулем.
задание: необходимо разработать программу позволяющую производить обработку текстовой и числовой информации в файлах. При выполнении задания необходимо размерности массива и сам массив считать из...
Delphi для начинающих Namiko 25.04.2010 18:17
Turbo Pascal Заменить максимальный элемент каждой строки на противоположный по знаку
1.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Удалить из него все элементы, в записи которых есть цифра 5 2. Заменить максимальный элемент каждой...
Turbo Pascal MadMag 31.10.2008 07:53
Опции темы

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

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