jargar
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Помогите решить задачку
Дана квадратная матрица порядка n(n=5). Если все строки упорядочены по возрастанию, то в вектор x записать элементы столбца, содержащего наименьшее количество положительных элементов, а иначе элементы строки, содержащей наибольшее количество нулевых элементов. |
Можна приблизительно так:
Код:
program shki;
const
n=5;
var
a:array[1..n,1..n]of integer;
x:array[1..n] of integer;
i,j:integer;
z:boolean;
max,maxn,temp:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('Введіть a[',i,',',j,']=');
readln(a[i,j]);
end;
z:=true;
for i:=1 to n do
for j:=1 to n-1 do
z:=z and (a[i,j]>a[i,j+1]);
if z then
begin
max:=0;
temp:=0;
for i:=1 to n do
begin
temp:=0;
for j:=1 to n do
if a[j,i]>0 then temp:=temp+1;
if temp>max then
begin
max:=temp;
maxn:=i;
end;
end;
for i:=1 to n do x[i]:=a[i,maxn]
end
else
begin
max:=0;
temp:=0;
for i:=1 to n do
begin
temp:=0;
for j:=1 to n do
if a[i,j]=0 then temp:=temp+1;
if temp>max then
begin
max:=temp;
maxn:=i;
end;
end;
for i:=1 to n do x[i]:=a[maxn,i]
end;
end.
|
|
