Tasia17Люди, можете пожалуйста проверить код???
Надо найти сумму минимальных элементов прямоугольного массива 6*10(построчно), при условии, что в каждой строке несколько минимальных элементов .

program qwert;
const m=6;
n=10;
var T: array [1..m,1..n] of integer;
var min, sum, i, j, k: integer;
begin

sum:=0;
k:=0;
for i:=1 to m do
for j:=1 to n do
begin
min:=T[i,1];
if T[i,j]<=min then
min:=t[i,j];
end;
if T[i,j]=min then
k:=k+1;
sum:=sum+min*k;
writeln(sum)
end.

Мне кажется что либо вы не правильно поняли условие,
либо у постановщика задачи поехала крыша.

Если крыша не поехала , то вам сюда

из строки

1 2 3 4 5 6 7 8 999

В несколько минимальных попадают почти все.