Найти номер столбца, содержащего наибольшее произведение его элементов.

@Nesq1uk · Регистрация: 05.12.2016

Author24 — интернет-сервис помощи студентам

В целочисленной матрице размерностью 10*10 найти номер столбца, содержащего наибольшее произведение его элементов.

@Tosse · 16.12.2016, 17:04

Pascal

const mx=10;
var a:array[1..mx,1..mx] of integer;
i, max, j, k, p: integer;
begin
for i:=1 to 10 do
    begin
    for j:=1 to 10 do
        begin
        a[i,j]:=random(10) - random(10);
        write(a[i,j]:3);
        end;
    writeln;
    end;
max:=-2147483647;
k:=1;
for i:=1 to 10 do
    begin
    p:=1;
    for j:=1 to 10 do
        p:=p*a[j,i];
    if p>max then
        begin
        max:=p;
        k:=i;
        end;
    end;
writeln('Номер столбца: ',k);
end.

@Nesq1uk 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 3
		1
	Найти номер столбца, содержащего наибольшее произведение его элементов. 16.12.2016, 12:16. Показов 2708. Ответов 1 Метки нет (Все метки) В целочисленной матрице размерностью 10*10 найти номер столбца, содержащего наибольшее произведение его элементов. 0

	16.12.2016, 17:04

Найти номер столбца, содержащего наибольшее произведение его элементов.

Решение