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

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)

28.05.2014, 17:16. Просмотров 928. Ответов 1
Метки нет (Все метки)

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n) (процедура только для произведения)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2014, 17:16
Ответы с готовыми решениями:

Написать процедуру для вычисления произведения минимальных элементов строки матрицы.
Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы A(m n)...

Составить программу вычисления произведения элементов каждой строки А(6Х7). Элементы матрицы – действительные числа
Составить программу вычисления произведения элементов каждой строки А(6Х7). Элементы матрицы –...

Составить процедуру и функцию для вычисления значений элементов матрицы по заданной формуле
Составить подпрограмму-процедуру и подпрограмму-функцию для вычисления значений элементов а ij...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

1
Power torr
9 / 9 / 9
Регистрация: 28.05.2014
Сообщений: 11
28.05.2014, 19:52 2
Лучший ответ Сообщение было отмечено driveme как решение

Решение

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
Program z1;
uses crt;
type mas=array[1..100,1..100] of integer;
var i,j,n,m:integer;
a:mas;
k:integer;
procedure pr(n,m:integer; b:mas; var p:integer);
var
i,j,min:integer;
begin
p:=1;
for i:=1 to n do begin
 min:=b[i,1];
 for j:=2 to m do
 if b[i,j]<min then min:=b[i,j];
 p:=p*min;
 end;
 end;
begin
 write('vvesti chisla N,M ');
 readln(n,m);
 for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(20)+1;
   write(a[i,j]:4); end;
  writeln;
      end;
pr(n,m,a,k);
writeln('k=',k:8);
readln;
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2014, 19:52

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (12/(1+1)2) * (...


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

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

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