Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » срочно,пожалуйста
срочно,пожалуйста
дана матрица размером n*m
найти номер ее столбца с наименьшим произведением элементов и вывести ее данный номер и его значение.
1 | Автор: natasha-karacharova | 2011-05-10, 15:03   |  Репутация: [ + 0 ]
var
a:array[1..10,1..10]of byte;
n,m,i,j,p,pmin,c:integer;
begin
read(n,m);p:=1;pmin:=32000;
for i:=1 to n do
for j:=1 to m do
read(a[j,i]);
for i:=1 to n do begin
for j:=1 to m do
p:=p*a[i,j];
if pmin>p then begin pmin:=p;c:=i;end;
p:=1;end;
writeln('Столбец с наименьшим произведением: ',c);
write('Значение этого столбца: ',pmin);
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-05-10, 17:19   |  Репутация: [ + 211 ]
спасибо большое)))
здест не нужен соnst?)
3 | Автор: natasha-karacharova | 2011-05-11, 11:39   |  Репутация: [ + 0 ]
На здоровье, обращайся ещё:)
Нет, я бы не использовал:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-05-11, 12:35   |  Репутация: [ + 211 ]
еще раз большое спасибо))))
5 | Автор: natasha-karacharova | 2011-05-11, 14:18   |  Репутация: [ + 0 ]
На здоровье:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2011-05-11, 14:20   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2011-05-11, 14:20   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » срочно,пожалуйста
Страница 1 из 11
Поиск: