опять запуталась с матрицами

[svetlana891]

Подскажите пожалуйста правильное решение.
Дана матрица А(4,4)э
1.Найти произведение элементов среди элементов расположенных на главной диагонали матрицы А.
2юНайти минимальный элемент в 3-й строке.
3.Поменять местами найденный минимальный элемент и значение S/

program xd;
const n=4;m=4;
Type matrix=array [1..n,1..n] of integer;
var a:matrix;i,j,pr,min,index,s,new: integer;

begin
pr:= 1;
for i:= 1 to n do
for j:= 1 to m do
begin
ReadLn(a[i,j]);
if i=j then pr:= pr*a[i,j];
end;
begin
min:= 1;
ReadLn(S);
for i:= 1 to n do
for j:= 1 to m do
begin
ReadLn(a[i,j]);
end;
for j:= 1 to m do
begin
if a[3,j]<min then
begin
min:= a[3,j];
index:= j;
end;
end;
new:= s;
S:= a[3,index];
a[3,index]:= new;
end;
end.

[ОДИНОЧЕСТВО В СЕТИ]

// сделай здесь ввод матрицы
p:=1;
for i:=1 to 4 do
p:=p*a[i,i];
min:=60000;
for i:=1 to 4 do
if a[3,i]<min then begin min:=a[3,i];index:=i;end;
readln(s);
a[3,index]:=s;
// сделай здесь вывод матрицы

[svetlana891]

просит ввод данных. Подскажи пожалуйста что это

[svetlana891]

Всё равно что то с ней не так. Исправьте пожалуйста

[ОДИНОЧЕСТВО В СЕТИ]

program xd;
const n=4;
Type matrix=array [1..n,1..n] of integer;
var a:matrix;i,j,p,min,index,s,new: integer;

begin
pr:= 1;
for i:= 1 to n do
for j:= 1 to n do
ReadLn(a[i,j]);
ReadLn(S);
p:=1;
for i:=1 to n do
p:=p*a[i,i];
min:=60000;
for i:=1 to n do
if a[3,i]<min then begin min:=a[3,i];index:=i;end;
new:=min;
a[3,index]:=s;
writeln('min v 3 stroke ',index,' element=',new);
for i:= 1 to n do begin
for j:= 1 to n do
write(a[i,j]:5);
writeln;
end;
readln;
end.

[Serge_Bliznykov]

ОДИНОЧЕСТВО, позвольте сделать небольшие замечания:
1) при работе программы ошибки не будет только потому, что m=4

for j:= 1 to m do

ошибочно. надо

for j:= 1 to n do

Потому как, надо или объявлять матрицу как matrix=array [1..n,1..m] of integer;
и везде в циклах использовать до m
либо выкинуть m совсем.

2) код очень желательно форматировать отступами. это резко повышает его читаемость/наглядность.

[ОДИНОЧЕСТВО В СЕТИ]

при работе программы ошибки не будет только потому, что m=4

на это и расчитывалось!!!

код очень желательно форматировать отступами

у ТС он даже тегами не выделен!!!
задача решена остальное проблемы ТС!!! я от него даже элементарного спасибо не услышала,а вы: "отступы,наглядность"

[Serge_Bliznykov]

на это и расчитывалось!!!

э, нет! Так не пойдёт!
давайте по честному- где подправили, где-то забыли... так?
Поймите, в данной задаче m надо ПОЛНОСТЬЮ выкинуть! в любых проявлениях и сочетаниях! (т.к. в условиях дано, что матрица квадратная)
скажу честно, если бы принимал такое решение, то минус полбалла (а то и минус балл, в зависимости от того, понимает, что это за ошибка и чем она чревата) к оценке...
имхо, не должна программа выдавать ошибки выполнения при простом (я бы даже сказал - очевидном) изменении констант...

я от него даже элементарного спасибо не услышала,а вы: "отступы,наглядность"

Хотите, я Вам СПАСИБО скажу?...

[ОДИНОЧЕСТВО В СЕТИ]

[offtop]

Хотите, я Вам СПАСИБО скажу?

ваше то мне зачем???
данное решение - руководство к действию а что и где исправлять это личное дело ТС ему нужна оценка а не мне я свои уже получила(по программированию и алгоритмизации) [/offtop] sorry за офтоп но Лс отключены!!!

[Rashka90]

Кто ни быдь подскажите как считать Двумерный массив Pt(8,2) по строкам? Заранее спасибо...