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

Ответ Создать новую тему
 
Лёк-лёка
Новичок
3 / 3 / 0
Регистрация: 05.04.2011
Сообщений: 30
24.04.2011, 18:46     Заменить максимальный элемент каждой строки на противоположный
  #1
Помогите пожалуйста решить задачу в Pascal (массив).
Дан двумерный массив размером 5*6,заполненный случайным образом:
a)заменить максимальный элемент каждой строки на противоположный
б)вставить после столбцов с максимальными элементами столбец из нулей
AdAgent
Объявления
24.04.2011, 18:46
Рашель
Новичок
5 / 5 / 1
Регистрация: 24.04.2011
Сообщений: 6
25.04.2011, 00:54
  #2
Противоположный элемент это что прости?
MAZUR777
Форумчанин
603 / 129 / 6
Регистрация: 15.04.2010
Сообщений: 555
25.04.2011, 08:15     Заменить максимальный элемент каждой строки на противоположный
  #3
a)

Код 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
Uses
 CRT;
Const
 n=5;
 m=6;
Type
  mas=array[1..n,1..m] of integer;
var
 a:mas;
 i,j:integer;
 
procedure zap(Var m:mas;k,l:integer);
begin
randomize;
 for i:= 1 to k do
 begin
  for j:= 1 to l do
   begin
    m[i,j]:=random(10)-6;
    write(m[i,j]:3);
   end;
  writeln;
 end;
end;
 
procedure zamena(Var m:mas;k,l:integer);
Var
 jmax:integer;
begin
 for i:= 1 to k do
 begin
 jmax:=1;
  for j:= 1 to l do
    if a[i,j]>a[i,jmax] then
     jmax:=j;
   a[i,jmax]:=-a[i,jmax];
 end;
end;
 
procedure print(Var m:mas;k,l:integer);
begin
 for i:= 1 to k do
 begin
  for j:= 1 to l do
    write(m[i,j]:3);
  writeln;
 end;
end;
 
Begin
 zap(a,n,m);
 writeln;
 zamena(a,n,m);
 print(a,n,m);
 Readln
End.
Добавлено через 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Pascal ABC Дан двумерный массив А(4,5). Заменить максимальный элемент каждой строки на противоположный
Дан двумерный массив А(4,5), заполненный с помощью ГСЧ. Заменить максимальный элемент каждой строки на противоположный.
Pascal ABC 1 Kastiil 23.05.2014 20:31
Pascal ABC Найти максимальный элемент каждой строки
Дана матрица С размером М на N. Найти максимальный элемент каждой строки.
Pascal ABC 1 Улья 28.05.2013 14:26
Pascal ABC Заменить наименьший элемент каждой строки, начиная со второй, наибольшим элементом предыдущей строки
2.Дан массив А. Заменить наименьший элемент каждой строки, начиная со второй, наибольшим элементом предыдущей строки.
Pascal ABC 1 Аделька 30.04.2013 23:04
Pascal ABC Поменять местами максимальный элемент каждой строки массива с диагональным элементом в этой строчке
1. Написать программу, которая меняет местами максимальный элемент каждой строки с диагональным элементом в этой строчке, в заданной квадратной матрице. 2.Написать программу, которая формирует...
Pascal ABC 14 c1way 11.03.2012 03:24
Pascal ABC В каждой строке матрицы заменить знак максимального по модулю элемента на противоположный.
Дан двумерный массив. В каждой строке замените знак максимального по модулю элемента на противоположный. const zmax=10; type temp=arrayof integer; var n, k, u, h:integer; procedure...
Pascal ABC 1 kiss 28.02.2012 14:42
Pascal ABC Дан двумерный массив целых чисел. 1. Первый нечетный элемент каждой строки удвоить 2. Последний нулевой элемент каждого столбца заменить на число 10
Дан двумерный массив целых чисел. 1. Первый нечетный элемент каждой строки удвоить 2. Последний нулевой элемент каждого столбца заменить на число 100 пожалуйста, помоги мне до завтра
Pascal ABC 1 зайка444 02.06.2011 20:27
Pascal ABC Дан массив Заменить максимальный элемент каждой строки на противоположный.
Дан двумерный массив размерностью 6*7, заполненный случайными числами.Заменить максимальный элемент каждой строки на противоположный. program fg1; const n=6; m=7; dd=51; type dmyarray=array of...
Pascal ABC 12 СуперкотЭ 21.03.2011 16:15
Pascal ABC найти максимальный элемент каждой строки матрицы
найти максимальный элемент каждой строки. Результат получить в виде линейного массива размером N.
Pascal ABC 4 SvetaZ 15.12.2010 11:54
Опции темы

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