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

В заданном массиве A(N,M) найти количество положительных элементов по столбцам

18.02.2013, 09:51. Просмотров 917. Ответов 2
Метки нет (Все метки)

В заданном массиве A(N,M) найти количество положительных элементов по столбцам. Образовать массив B(N,M), делением элементов заданного массива на найденное количество положительных элементов по столбцам.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2013, 09:51
Ответы с готовыми решениями:

В заданном массиве A(N) найти количество элементов кратных двум
В заданном массиве A(N) найти количество элементов кратных двум.. Добавлено...

В заданном одномерном массиве из n элементов найти количество повторяющихся чисел
В заданном одномерном массиве из n элементов найти количество повторяющихся...

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

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

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

2
Paster Fob
293 / 271 / 194
Регистрация: 03.05.2012
Сообщений: 567
18.02.2013, 17:30 2
Лучший ответ Сообщение было отмечено vlad161ru как решение

Решение

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

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
type
  tmatrix=array [1..100,1..100] of integer;
  tarray=array [1..100,1..100] of real;
 
var
  m,n:byte;
  a:tmatrix;
  b:tarray;
 
procedure creatematrix;
var
  i,j:byte;
begin
  for i:=1 to m do
    for j:=1 to n do
      a[i,j]:=random(100)-50;
end;
 
procedure writematrix;
var
  i,j:byte;
begin
  for i:=1 to m do begin
    for j:=1 to n do begin
      write(a[i,j]:5);
    end;
    writeln;
  end;
  writeln;
end;
 
function positivmember(ai:byte):byte;
var
  j,count:byte;
begin
  count:=0;
  for j:=1 to m do
    if a[j,ai]>0 then
      inc(count);
    write(count:5);
    positivmember:=count;
end;
 
procedure creatematrix2;
var
  i,j,num:byte;
  nm:real;
begin
  for i:=1 to n do begin
    num:=positivmember(i);
    for j:=1 to m do begin
      if num<>0 then
        b[j,i]:=a[j,i]/num
      else b[j,i]:=a[j,i];
    end;
  end;
  writeln;
end;
 
procedure writearray;
var
  i,j:byte;
begin
  for i:=1 to m do begin
    for j:=1 to n do
      if frac(b[i,j])<>0 then
        write(b[i,j]:7:1)
      else
        write(b[i,j]:7:0);
    writeln;
  end;
end;
 
begin
  randomize;
  writeln('введите размер матрицы M x N : ');
  writeln;
  readln(m,n);
  writeln;
  creatematrix;
  writematrix;
  writeln('кол-во положительных элементов в столбцах : ');
  writeln;
  creatematrix2;
  writeln;
  writeln('полученный массив : ');
  writeln;
  writearray;
  readln
end.
1
vlad161ru
0 / 0 / 0
Регистрация: 18.02.2013
Сообщений: 4
25.02.2013, 17:52  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.02.2013, 17:52

В одномерном массиве найти: количество нулевых элементов, сумму положительных, поменять местами второй
Пожалуйста помогите очень нужна помощь Задание: В одномерном массиве x(15)...

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

Одномерные числовые массивы. Если в массиве максимальный элемент четный, найти количество положительных элементов
Если в массиве максимальный элемент четный, найти количество положительных...


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

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

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