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

Матрицы. Определить количество положительных элементов в каждом столбце матрицы

29.04.2012, 02:04. Показов 1082. Ответов 1
Метки нет (Все метки)

помогите пожалуйста зделать прогамму!!!

С помощью функции Random сформировать двумерный массив размером n*m вещественных чисел с элементами от -30 до 30. Определить количество положительных элементов в каждом столбце матрицы. Сформировать два новых массива из 20-ти первых элементов исходного массива, деленных на max, и из 20-ти последних, деленных на max. Вывести все три массива.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2012, 02:04
Ответы с готовыми решениями:

Матрицы. Определить количество положительных элементов в каждом столбце матрицы
С помощью функции Random сформировать двумерный массив размером n*m вещественных чисел с элементами...

Определить количество положительных элементов в каждом столбце матрицы.
Тема: Матрицы. С помощью функции Random сформировать двумерный массив размером n*m вещественных...

Определить количество положительных элементов в каждом столбце матрицы
определить количество положительных элементов в каждом столбце матрицы F 4.5 2.3 -5.1 ...

Определить количество положительных элементов в каждом столбце матрицы
Задача с матрицей. С помощью функции Random сформировать двумерный массив размером n*m...

1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.04.2012, 07:36 2
Лучший ответ Сообщение было отмечено dimon.ru как решение

Решение

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
uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of real;
    b,c: array [1..20] of real;
    i,j,n,m,imax,jmax,k,z,e: byte;
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
imax:=1; jmax:=1;
writeln('');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=60*random-30;
        write(a[i,j]:6:1);
        if a[i,j]>a[imax,jmax] then
           begin
           imax:=i; jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Макс. элемент ',a[imax,jmax]:0:1,', в строке ',imax,', в столбце ',jmax);
writeln('');
k:=20 div m;
z:=20 mod m;
e:=0;
for i:=1 to k do
    for j:=1 to m do
        begin
        inc(e);
        b[e]:=a[i,j]/a[imax,jmax];
        write(b[e]:8:1);
        end;
for j:=1 to z do
    begin
    inc(e);
    b[e]:=a[k+1,j]/a[imax,jmax];
    write(b[e]:8:1);
    end;
writeln;
k:=n-(20 div m);
z:=m-(20 mod m);
e:=0;
for j:=z+1 to m do
    begin
    inc(e);
    b[e]:=a[k,j]/a[imax,jmax];
    write(b[e]:8:1);
    end;
for i:=k+1 to n do
    for j:=1 to m do
        begin
        inc(e);
        b[e]:=a[i,j]/a[imax,jmax];
        write(b[e]:8:1);
        end;
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2012, 07:36
Помогаю со студенческими работами здесь

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

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

Определить количество положительных элементов в каждом столбце матрицы
Определить количество положительных элементов в каждом столбце(Паскаль) У меня написан код,только...

Определить и вывести на экран сумму положительных элементов в каждом столбце матрицы
:help:Хотя бы одну на двумерный массив: 1)Даны действительные квадратные матрици порядка...


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

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

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