0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 29
1

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

02.06.2015, 23:39. Показов 1197. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В двумерном массиве A из m строк и n столбцов найти количество положительных элементов и максимальные элементы в каждой строке.

Проверьте пожалуйста программу. Не могу понять, как корректно ввести двумерный массив, чтобы он в нем нашел кол-во положительных элементов и максимальные элементы в каждой строке. Заранее Спасибо!
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
var
 A:array[1..10,1..10] of integer;
 i,j,m,n,K,max:integer;
begin
 Readln(m,n);
 for i:=1 to m do
   for j:=1 to n do
     Readln(A[i,j]);
 k:=0;
 for i:=1 to m do
   for j:=1 to n do
      if A[i,j]>0 then
           k:=k+1;
 Writeln('K=',K);
for i:=1 to m do
  begin
  max:=a[i,1];
    for j:=2 to n do
      if A[i,j]>max then
        max:=A[i,j];
    write(max,' ')
  end;
readln
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2015, 23:39
Ответы с готовыми решениями:

Определить сумму элементов в каждой строке матрицы и максимальные элементы в каждой строке
пожалуйста, помогите написать программу по заданию: получить целочисленную матрицу. Определить...

Найти количество N положительных элементов в каждой строке матрицы
Дана матрица А. а) найти количество N положительных элементов в каждой строке. б) найти сумму S...

В каждой строке матрицы найти количество положительных элементов
Ввести матрицу, в каждой строчке найти количество положительных елементов

Найти количество положительных элементов в каждой строке матрицы
Найти кол-во положительных элементов каждой строки массива 10*10, написанного с клавиатуры...

3
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
03.06.2015, 01:13 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
var
  A: array[1..2, 1..2] of integer;
  i, j, m, n, K, max: integer;
 
begin
  write('Enter m, n: ');
  Readln(m, n);
  for i := 1 to m do
    for j := 1 to n do
    begin
      write('A[',i,',',j,']=');
      Readln(A[i, j]);
    end;
  k := 0;
  for i := 1 to m do
    for j := 1 to n do
      if A[i, j] > 0 then
        k := k + 1;
  Writeln('K=', K);
  for i := 1 to m do
  begin
    max := a[i, 1];
    for j := 2 to n do
      if A[i, j] > max then
        max := A[i, j];
    write(max, ' ')
  end;
  readln
end.
0
0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 29
03.06.2015, 09:40  [ТС] 3
я чуть позже разобрался)) НУ спасибо, так лучше))
0
0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 29
04.06.2015, 23:55  [ТС] 4
помогите пожалуйста тут Вывод пояснительного текста, что решений нет
0
04.06.2015, 23:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2015, 23:55
Помогаю со студенческими работами здесь

Найти количество положительных элементов в каждой строке матрицы В
Вот тут дали задания и не знаю как решить....я думаю есть добрые люди???=))) Дана матрица В(3;2)...

В каждой строке матрицы найти количество положительных элементов
1.В каждой строке двумерного массива.Найти количество положительных элементов. 2.В каждом...

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

Найти количество нечетных положительных элементов в каждой строке матрицы
Помогите довести программу до ума :) Суть : в двух заданных матрицах произвольного размера найти...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru