Подскажите как дописать программу

06.03.2010, 13:00. **Показов** 579. **Ответов** 4

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

В матрице 6х6 заданной случайным образом. Подсчитать количество отрицательных элементов, стоящих выше главной диагонали, ниже побочной диагонали и сравнить их.
Я написал программу, но почему она всегда ответ выдает один и тот же,а именно (Кол-во отриц.элементов ниже побочной диагонали больше). Возможно это такой фарт, но мне кажется я просто неправильно ее написал. Подскажите пожалуйста

я еще новичок в этом, поэтому сильно не ругайте

Pascal

program matrix;
var a:array [1..6,1..6] of integer;
i,j,n,k,p:integer;
begin
randomize;
for i:=1 to 6 do begin
for j:=1 to 6 do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4); end;
writeln; end;
k:=0; p:=0;
for i:=1 to 6 do
for j:=1 to 6 do
if i<j then begin if k<0 then k:=k+1; end;
if i+j>n+1 then begin if p<0 then p:=p+1; end;
if k>p then writeln ('Кол-во отриц.элементов выше главной диагонали больше')
else writeln ('Кол-во отриц.элементов ниже побочной диагонали больше');
readln;
end.

@System.exe · 06.03.2010, 14:02

Pascal

program matrix;
Var a:array[1..6, 1..6] of integer;
i,j,n,k,p:integer;
begin
randomize;
for i:=1 to 6 do
begin
for j:=1 to 6 do
a[i,j]:=random(21)-10; 
write(a[i.j]:4)
end;
writeln;
begin
k:=0;
p:=0;
writeln('enter n');
readln(n);
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
if (i<j) and (a[i,j]<0) then
k:=k+1;
else if (i+j>n+1) and (a[i,j]<0) then
p:=p+1;
else continue
end;
end;
if k>p then 
writeln('Кол-во элементов выше главной диагонали больше');
else writeln('Кол-во элементов ниже побочной диагонали больше')
end;
end.

@Puporev · 06.03.2010, 14:05

Вообще какую-то чушь написали. Вместо того чтобы сравнивать с нолем элементы матрицы, сравниваете их количество.

Pascal

program matrix;
const ct=6;
var a:array [1..ct,1..ct] of integer;
    i,j,v,n:integer;
begin
randomize;
for i:=1 to ct do
 begin
  for j:=1 to ct do
   begin
    a[i,j]:=random(21)-10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
v:=0; n:=0;
for i:=1 to ct do
for j:=1 to ct do
if a[i,j]<0 then
 begin
  if j>i then v:=v+1
  else if j<ct-i+1 then n:=n+1;
 end;
writeln('Выше  главной=',v);
writeln('Ниже побочной=',n);
if v>n then writeln ('Кол-во отриц.элементов выше главной диагонали больше')
else if v<n then writeln ('Кол-во отриц.элементов ниже побочной диагонали больше')
else write('Поровну');
readln
end.

Добавлено через 1 минуту
System.exe, А интересно n у Вас что делает?

@System.exe · 06.03.2010, 14:14

Да я перепутал. Нужно вместо n было использовать размерность матрицы, да и условие немного изменить. Не знаю чего-то поспешил . . .

06.03.2010, 14:19

Всем спасибо за разъяснения, работает!

@System.exe 92 / 88 / 58 Регистрация: 14.05.2009 Сообщений: 202
	06.03.2010, 14:14	4
	Да я перепутал. Нужно вместо n было использовать размерность матрицы, да и условие немного изменить. Не знаю чего-то поспешил . . . 0

Artlum
	06.03.2010, 14:19	5
	Всем спасибо за разъяснения, работает!