Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
iBRA_18
0 / 0 / 0
Регистрация: 27.04.2015
Сообщений: 30
1

Найти положительные элементы в каждом столбце матрицы и переписать их в массив

11.06.2015, 18:48. Просмотров 873. Ответов 4
Метки нет (Все метки)

Дан двумерный массив F(5x6), найти положительные элементы в каждом столбце и переписать их в массив M.
Найти максимальный элемент массива M и его порядковый номер.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2015, 18:48
Ответы с готовыми решениями:

Переписать положительные элементы матрицы в массив. Найти наибольший элемент
Переписать положительные элементы матрицы B(N,M) в одномерный массив С. Найти...

Найти элементы в каждом столбце матрицы
Найти элементы в каждом столбце матрицы G размером 7х4, которые больше числа А...

Переписать положительные элементы матрицы X в массив Y и посчитать их количество
1.переписать положительные элементы массива Х m, n (1 <= n <= 10, 1 <= m <=...

Найти максимальные элементы в каждом столбце матрицы и вывести результат
Дан двумерный массив А(10,30). Найти максимальные элементы в каждом столбце и...

Найти минимальные элементы в каждом столбце и вывести их в седьмой строке матрицы
Получите 36 случайных чисел, записать их в файл, чтением из файла сформировать...

4
iBRA_18
0 / 0 / 0
Регистрация: 27.04.2015
Сообщений: 30
13.06.2015, 10:44  [ТС] 2
Проверьте пожалуйста правильно ли я написал программу?

ВложенияДвумерный_Экз.rar (377 байт, 3 просмотров)
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
Program z2;
Var F:array [1..5,1..6] of integer;
M:array [1..30] of integer;
max, i, j, k, h:integer;
Begin
Writeln ('Введите Массив F:=');
For i:=1 to 5 do
For j:=1 to 6 do
Read (F[i,j]);
k:=0;
For i:=1 to 5 do
For j:=1 to 6 do
If F[i,j]>0 then 
begin
k:=k+1;
M[k]:=F[i,j];
end;
for i:=1 to k do
Write (M[i],',');
max:=M[1];
h:=1;
for i:=2 to k do
If M[i]>max then 
begin 
max:=M[i];
h:=i;
end;
Writeln (' Макс.:',h);
End.
0
ФедосеевПавел
Модератор
3773 / 2123 / 866
Регистрация: 01.02.2015
Сообщений: 7,058
13.06.2015, 11:10 3
Если не секрет - что мешает самостоятельно проверить на тестовых примерах?

PS Короткие программы лучше приводить в сообщении, обрамив тегами PASCAL (нажав одноимённую кнопку).
0
iBRA_18
0 / 0 / 0
Регистрация: 27.04.2015
Сообщений: 30
13.06.2015, 13:25  [ТС] 4
В моей программе паскаля нелзя копировать текст, можно только вставлять
0
ФедосеевПавел
Модератор
3773 / 2123 / 866
Регистрация: 01.02.2015
Сообщений: 7,058
13.06.2015, 21:30 5
Лучший ответ Сообщение было отмечено iBRA_18 как решение

Решение

Открываю в блокноте, копирую, вставляю в браузер.
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
program z2;
 
var
  F: array [1..5, 1..6] of integer;
  M: array [1..30] of integer;
  max, i, j, k, h: integer;
begin
  Writeln('Введите Массив F:=');
  for i := 1 to 5 do
    for j := 1 to 6 do
      Read(F[i, j]);
  k := 0;
  for i := 1 to 5 do
    for j := 1 to 6 do
      if F[i, j] > 0 then
      begin
        k := k + 1;
        M[k] := F[i, j];
      end;
  for i := 1 to k do
    Write(M[i], ',');
  max := M[1];
  h := 1;
  for i := 2 to k do
    if M[i] > max then
    begin
      max := M[i];
      h := i;
    end;
  Writeln(' Макс.:', h);
end.
Вроде, верно, но нужно предусмотреть вариант с отсутствием положительных элементов.
1
13.06.2015, 21:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2015, 21:30

Дан двумерный массив 5 на 5. Найти количество простых чисел в каждом столбце матрицы и вывести в одномерный массив
Из матрицы 5на5 вывести количество простых чисел в одномерный массив, в котором...

В каждом столбце матрицы найти максимальный и минимальный элементы, которые присутствуют в массиве A
Полностью задача звучит так: Даны целочисленная матрица R и целочисленный...

В каждом столбце матрицы найти количество элементов, кратных 5 и сформировать из них массив
Дана целочисленная прямоугольная матрица А(,).В каждом столбце найти количество...


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

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

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