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

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

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

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

Зарание спасибо
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.10.2012, 12:12
Ответы с готовыми решениями:

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

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

Найти сумму максимальных элементов столбцов матрицы и наименьшую из сумм элементов строк
Данна вещественная матрица А (n, m). Найти сумму максимальных элементов столбцов матрицы и...

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

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

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27299 / 18268 / 7229
Регистрация: 22.10.2011
Сообщений: 32,167
Записей в блоге: 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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2012, 12:54

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

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

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


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

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

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