Задача № 2. Среди столбцов заданной целочисленной матрицы, содержащих только такие элементы, которые по модулю не больше 10

Задача № 1

Среди столбцов заданной целочисленной матрицы, содержащих только такие элементы, которые по модулю не больше 10, найти столбец с минимальным произведением элементов.

Решение

uses crt;

const n=4;

m=10;

var i,j,min,k,p:integer;

f:boolean;

x:array[1..n,1..m] of integer;

begin

clrscr;

randomize;

writeln('Исходный массив:');

for i:=1 to n do begin

for j:=1 to m do begin

x[i,j]:=random(31)-15;

write(x[i,j]:4)

end;

writeln;

end;

min:=maxint; k:=0;

for j:=1 to m do begin

p:=1;

f:=true;

for i:=1 to n do begin

if abs(x[i,j])>10 then begin

f:=false;

continue

end;

p:=p*x[i,j]

end;

if f=false then continue;

if p<min then begin

k:=j;

min:=p

end;

end;

write('Ответ: ');

if k=0 then writeln('задача не имеет решения!')

else writeln('номер столбца равен ',k)

end.

Задача № 2

Дан двумерный массив. Написать процедуру поиска ненулевых элементов. Вывести исходный массив и результат.