Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 04.10.2012
Сообщений: 7
1

Вставить после строки матрицы с наибольшим количеством четных элементов, строку из максимальных элементов столбцов

04.10.2012, 12:12. Просмотров 1217. Ответов 1
Метки нет (Все метки)

Дана квадратная матрица A(nхn). Вставить после строки, содержащей наибольшее количество четных элементов строку, состоящую из максимальных элементов столбца.

Зарание спасибо
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.10.2012, 12:12
Ответы с готовыми решениями:

Вставить после строки, содержащей наибольшее количество четных элементов строку, состоящую из максимальных элемент
Дана квадратная матрица A(nхn). Вставить после строки, содержащей наибольшее количество четных...

Вычислить произведение суммы максимальных элементов строк матрицы на сумму максимальных элементов столбцов матрицы
Вычислить произведение суммы максимальных элементов строк матрицы на сумму максимальных элементов...

Сформировать одномерный массив, состоящий из максимальных элементов четных столбцов матрицы
Дана целочисленная матрица 10x12. Найти сумму элементов в заштрихованной области. Сформировать...

Сформировать матрицу-строку из максимальных элементов столбцов исходной матрицы
Дана матрица К размера n*m, где n,m<=15. Элементы матрицы- случайные числа из диапозона . Написать...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29308 / 19375 / 7601
Регистрация: 22.10.2011
Сообщений: 33,781
Записей в блоге: 6
04.10.2012, 12:54 2
Лучший ответ Сообщение было отмечено volvo как решение

Решение

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
57
58
59
60
61
62
63
64
65
66
67
const
   n = 6;
type
   vector = array[1 .. n] of integer;
 
var
   a : array[1 .. n + 1] of vector;
   i, j : integer;
   count, maxcount, ix : integer;
 
   maxcols : vector;
   maxincol : integer;
 
begin
   randomize;
   for i := 1 to n do { заполняем и печатаем матрицу }
   begin
      for j := 1 to n do
      begin
         a[i, j] := random(100);
         write(a[i, j]:4);
      end;
      writeln;
   end;
 
   writeln;
 
   maxcount := 0; { максимальное кол-во четных элементов будет храниться здесь }
   for i := 1 to n do
   begin
      count := 0; { здесь - кол-во четных для строки i }
      maxincol := a[1, i]; { сразу же, в этом цикле будем искать максимумы по столбцам }
      for j := 1 to n do
      begin
         if not odd(a[i, j]) then inc(count); { элемент четный - увеличим счетчик }
 
         if a[j, i] > maxincol then maxincol := a[j, i];
      end;
 
      if count > maxcount then
      { в текущей строке было больше четных элементов, чем макс. до этого? }
      begin
         maxcount := count; { запомним новый максимум }
         ix := i; { и номер строки, потому что нужен нам именно номер строки }
      end;
      maxcols[i] := maxincol; { заодно запишем в массив максимумов по столбцу найденное значение}
   end;
 
   { а дальше - все просто: все строки, которые ниже ix - смещаем еще на одну ниже }
   for i := n downto ix + 1 do
      a[i + 1] := a[i];
 
   {
      и прямо вот так заносим под строку с макс. кол-вом четных чисел 
      найденный массив максимальных значений столбцов. Паскаль это позволяет
   }
   a[ix + 1] := maxcols;
   
   { выводим измененную матрицу }
   for i := 1 to n + 1 do
   begin
      for j := 1 to n do
         write(a[i, j]:4);
      writeln;
   end;
 
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2012, 12:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти номер строки массива с наибольшим количеством положительных элементов и раскрасить эту строку зеленым цветом
program zadanie9_1; Uses crt; var i,j,a,b,neg,pos:integer; k:array of longint; begin...

Найти номер строки матрицы с наибольшим количеством четных чисел
Задан рандомный двухмерный массив. Найти в нём номер рядка, в котором наибольшее количество парных...

Поменять в массиве местами строку с наибольшим и строку с наименьшим количеством различных элементов
Помогите, пожалуйста, решить задачу на С++ . Дан массив действительных чисел размера m на n, где m...

Определить строку с наибольшим количеством отрицательных элементов
Здравствуйте! Помогите найти ошибку, пожалуйста =) Есть матрица, нужно определить строку с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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