Найти сумму элементов строки, в которой расположен минимальный элемент
 

:tehnari_ru_325:
Значит вот :Задан массив В(К, М). Найти сумму элементов строки, в которой расположен минимальный элемент.

Есть программа нужно изменить рандомный ввод на ввод вручную.

uses crt;
var
b: array[1..100,1..100] of integer;
i,j,k,n,x: byte;
min,sum: integer;
begin clrscr;
randomize;
write('Razmeru: ');
readln(k,n);
for i:=1 to k do
begin
for j:=1 to n do
begin
b[i,j]:=random(61)-30;
write(b[i,j]:4);
end;
writeln;
end;
writeln;
min:=b[1,1];
x:=1;
for i:=1 to k do
for j:=1 to n do
if b[i,j]<min then
begin
min:=b[i,j];
x:=i;
end;
for i:=1 to k do
sum:=sum+b[x,j];
writeln('Summa: ',sum);
readkey;
end.

Пожалуйста: вместо

begin
b[i,j]:=random(61)-30;
write(b[i,j]:4);
end;

вставьте

begin
write('b[',i,',',j,']= ');
readln(b[i,j]);
end;

и уберите строку

randomize;

Проверила У меня прогамма не правильно работает сумма не правильно считается

Так и нужно было написать, что программа не отлаженная, а не просто заменить метод ввода! Пожалуйста, там две ошибки, и обе в одной строке.
В программе:

for i:=1 to k do
sum:=sum+b[x,j];

Надо:

for j:=1 to n do
sum:=sum+b[x,j];