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

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

27.12.2011, 18:49. Показов 2351. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан двумерный массив. Найти номера последних положительных элементов каждой строки.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2011, 18:49
Ответы с готовыми решениями:

Сформировать массив из последних попавшихся положительных элементов каждой нечетной строки матрицы
Двумерный массив t состоит из m=6 строк и n=3 столбцов. Надо сформировать массив из последних...

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

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

Найти количество положительных элементов каждой строки матрицы
ребят помогите с задачкой: Дана матрица W размером mхn. Найти количество положительных элементов...

1
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
27.12.2011, 19:40 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
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
type mat=array [1..100,1..100] of real;
var i,j,j1,j2,n,m: integer;
    a: mat;
 
procedure GenM(n,m: integer; var z:mat);
begin
for i:=1 to n do
    for j:=1 to m do
        z[i,j]:=random(101)-50;
end;
 
procedure Vyvod(var z:mat);
begin
for i:=1 to n do
    begin
    for j:=1 to m do
        write(z[i,j]:7:1);
    writeln;
    end;
end;
 
function LastPol(z: mat; ns: integer):integer;
var ipol: integer;
begin
ipol:=0;
for j:=1 to m do
    if z[i,j]>0 then ipol:=j;
LastPol:=ipol;
end;
 
begin
writeln('n,m=');
readln(n,m);
writeln('Исходный массив ');
GenM(n,m,a);
Vyvod(a);
writeln('Номера последних положительных элементов каждой строки ');
for i:=1 to n do
    writeln(i,' строка, номер ',LastPol(a,i));
readln;
end.
Добавлено через 5 минут
или для ввода вручную
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
uses crt;
type mat=array [1..100,1..100] of real;
var i,j,j1,j2,n,m: integer;
    a: mat;
 
procedure ReadM(c: char; n,m: integer; var z:mat);
begin
for i:=1 to n do
    for j:=1 to m do
        begin
        write(c,'[',i,',',j,']=');
        readln(z[i,j]);
        end;
end;
 
procedure Vyvod(var z:mat);
begin
for i:=1 to n do
    begin
    for j:=1 to m do
        write(z[i,j]:7:1);
    writeln;
    end;
end;
 
function LastPol(z: mat; ns: integer):integer;
var ipol: integer;
begin
ipol:=0;
for j:=1 to m do
    if z[i,j]>0 then ipol:=j;
LastPol:=ipol;
end;
 
begin
writeln('n,m=');
readln(n,m);
writeln('Исходный массив ');
ReadM('A',n,m,a);
Vyvod(a);
writeln('Номера последних положительных элементов каждой строки ');
for i:=1 to n do
    writeln(i,' строка, номер ',LastPol(a,i));
readln;
end.
0
27.12.2011, 19:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2011, 19:40
Помогаю со студенческими работами здесь

Найти среднее арифметическое положительных элементов каждой строки матрицы
2)Задана матрица A(M,N), где M<=25, N<=10. Определить средне арифметическое положительных элементов...

Найти средние арифметические положительных элементов каждой строки матрицы
Здравствуйте! Взываю о помощи. Найти средние арифметические положительных элементов каждой...

Найти номера наибольших элементов каждой строки матрицы, результаты записать в вектор Fmax
Помогите решить пожалуйста!!! Дана матрица F размером mхn. Найти номера наибольших элементов...

Найти номера последних положительных элементов каждой строки
Переделайте пожалуйста из массива в модули. Дан двумерный массив. Найти номера последних...


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

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

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