Помогите исправить работу в паскале. Что бы в индексах не выводилось 0 0

1-4 класс

program z1;
var
C: array [1..15, 1..15] of integer;
k, b, n, minpd: integer;
i, j: byte;
begin
writeln('Введите размер матрицы NxN');
readln(n);
if (n <= 15) then begin
for i := 1 to N do
for j := 1 to N do C[i, j] := random(500) - 100;
writeln('Матрица: ');
for i := 1 to N do
begin
for j := 1 to N do write(C[i, j]:4);
writeln;
end;
writeln;
minpd := C[1, N];
for i := n downto 1 do
for j := n - i + 1 to n do
if C[i, j] < minpd then begin
minpd := C[i, j];
k := i;
b := j;
end;
writeln('Наименьший элемент = ', minpd);
writeln('Индексы - ', k, ' ', b);
readln;
end;
end.

Pdn 03 янв. 2014 г., 1:00:48 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Nikitador05

03 янв. 2014 г., 2:54:37 (10 лет назад)

program z1;
uses crt;
var
C: array [1..15, 1..15] of integer;
k, b, n, minpd: integer;
i, j: byte;
begin
k:=0; b:=0;n:=0;minpd:=0;
writeln('size NxN');
readln(n);
if (n <= 15) then begin
for i := 1 to N do
for j := 1 to N do C[i, j] := random(500) - 100;
writeln('matrix: ');
for i := 1 to N do
begin
for j := 1 to N do write(C[i, j]:4);
writeln;
end;
writeln;
minpd := C[1, N];
for i := n downto 1 do
for j := n - i + 1 to n do
if C[i, j] < minpd then begin
minpd := C[i, j];
k := i;
b := j;
end;
writeln('min el = ', minpd);
writeln('index - ', k, ' ', b);
readln;
end;
end.