Напишите пожалуйста программу очень надо

[Milaya1995]

Массив

4 2 3 4
0 7 5 -2
-4 3 2 8
4 -2 8 3

Получить новую матрицу, элементы которой есть сумма элементов данной матрицы с наименьшим элементом среди расположенных ниже побочной диагонали

Ответы:
2 0 1 2
-1 5 3 -4
-6 1 0 6 min=-2
2 -4 6 1

[Stilet]

Покажи код ввода матрицы.

[Milaya1995]

Сообщение от Stilet

Покажи код ввода матрицы.

Можно поподробнее что именно нужно?

Если я правильно поняла, то тебе нужно вот это

CONST
kol_strok=5;
kol_stolbcov=4;
VAR
A:array[1..kol_strok,1..kol_stolbcov] of Real;
i,j:integer;
BEGIN
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
Read(A[i,j]);
END.

[Vanta11a]

Ну в принципе верно. Теперь надо найти минимальный элемент ниже побочной диагонали и просуммировать все с ним.
Работа с элементами ниже побочной диагонали рассмотрена по этой ссылке. Нужно не суммировать их, а найти минимальный.
Суммирование - аналогично вводу, вместо Read(A[i,j]) написать A[i,j] := A[i,j] + min;

[Stilet]

Да.
А теперь в цикл ввода добавь условие:

if (i>1)and(j>kol_stolbcov-i) and (min>a[i,j]) then min:=a[i,j]; {вычисляем минимум}

Где min переменка real;
И сам цикл суммирования в конец

for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
 A[i,j]:=a[i,j]+min;

И получишь решение.

[Milaya1995]

Сообщение от Stilet

Да.
А теперь в цикл ввода добавь условие:

if (i>1)and(j>kol_stolbcov-i) and (min>a[i,j]) then min:=a[i,j]; {вычисляем минимум}

Где min переменка real;
И сам цикл суммирования в конец

for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
 A[i,j]:=a[i,j]+min;

И получишь решение.

Напишите пожалуйста полностью код программы

[Stilet]

Пожалуйста )

CONST
kol_strok=5;
kol_stolbcov=4;
VAR
A:array[1..kol_strok,1..kol_stolbcov] of Real;
i,j:integer;
BEGIN
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do begin
 Read(A[i,j]); 
 if (i>1)and(j>kol_stolbcov-i) and (min>a[i,j]) then min:=a[i,j]; {вычисляем минимум}
end;
for i:=1 to kol_strok do begin
for j:=1 to kol_stolbcov do begin A[i,j]:=a[i,j]+min; write(a[i,j]; end; writeln; end;
readln;
END.

только тебе это не поможет.

[Milaya1995]

Сообщение от Stilet

Пожалуйста )

CONST
kol_strok=5;
kol_stolbcov=4;
VAR
A:array[1..kol_strok,1..kol_stolbcov] of Real;
i,j:integer;
BEGIN
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do begin
 Read(A[i,j]); 
 if (i>1)and(j>kol_stolbcov-i) and (min>a[i,j]) then min:=a[i,j]; {вычисляем минимум}
end;
for i:=1 to kol_strok do begin
for j:=1 to kol_stolbcov do begin A[i,j]:=a[i,j]+min; write(a[i,j]; end; writeln; end;
readln;
END.

только тебе это не поможет.

А как туда этот массив забить-то

[Stilet]

Отож потому я и говорил что тебе полный исходник, даже если он работает не поможет )
а как забить куда-то что-то читай в учебнике про процедуры read и write

[Milaya1995]

Сообщение от Stilet

Отож потому я и говорил что тебе полный исходник, даже если он работает не поможет )
а как забить куда-то что-то читай в учебнике про процедуры read и write

А сам код-то правильный или нет?)