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

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

16.04.2013, 12:37. Просмотров 833. Ответов 1
Метки нет (Все метки)

Дан двумерный массив X(n,m). Найти произведение элементов тех столбцов массива,в которых все элементы положительны.Из полученных значений сформировать одномерный массив.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2013, 12:37
Ответы с готовыми решениями:

Найти произведение элементов тех столбцов массива,в которых все элементы положительны
Дан двумерный массив X(n,m). Найти произведение элементов тех столбцов...

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

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

Найти произведение тех элементов массива, значения которых заключены в интервале [A; B] и кратны 3 или 5
Нужна блок-схема и программа Дан массив X(N).найти произведение тех...

Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5
Нужно сделать две программы: Дан массив X(N). 1) Найти произведение тех...

1
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
16.04.2013, 13:25 2
Лучший ответ Сообщение было отмечено VikkiK как решение

Решение

Писал на турбо ) но смысл думаю понятен.

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;
const Nmax = 10;
type Matrix = array [ 1 .. Nmax , 1 .. Nmax ] of integer;
type Mas = array [ 1 .. Nmax*Nmax ] of integer;
var
 X: Matrix;
 Massiv: Mas;
 i, j, n, m, len, count: byte;
 d: longint;
begin
clrscr;
randomize;
repeat
 write('Enter rows(n):');readln(n);
 write('Enter columns(m):');readln(m);
until ( n in [ 1 .. 10 ] ) and ( m in [ 1 .. 10 ] );
 
for i:=1 to n do begin
 for j:=1 to m do begin
     X[i,j] := random(100) - 20;
     write(X[i,j],' ');
 end;
writeln;
end;
 
len:=0; count:=0;
for j:=1 to m do begin
 d:=1;
 for i:=1 to n do
 if X[i,j] > 0 then begin
    d:=d*X[i,j];
    inc(count);
 end;
 if count = m then begin
    inc(len);
    Massiv[len]:=d;
 end;
end;
 
writeln;
if len = 0 then write('Sorry, there is no such columns.')
 else
for i:=1 to len do write(Massiv[i],' ');
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2013, 13:25

Найти обратное произведение наибольших элементов тех строк двумерного массива(3*4), первый элемент которых отрицателен.
(пожалуйста с процедурами и функциями)!!!!! Найти обратное произведение...

Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны
Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны. Из...

В двумерном массиве удвоить элементы тех столбцов, в которых нет нулевых элементов
В двумерном массиве удвоить элементы тех столбцов, в которых нет нулевых...


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

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

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