в матрице найти сумму элементов строки

[Lizonka-88]

в квадратной матрице (5), найти сумму элементов строки, в которой нах наименьший элемент
мое

Program zad6;
uses crt;
const
n=5;
type
mas= array[1..n,1..n] of integer;
var
a: mas; S, min: real; t, i, j: byte;
Begin
clrscr;
min := a[1,1];
writeln('vvedite massiv');
for i:= 1 to n do
  for j:= 1 to n do
  begin
        readln(a[i,j]);
        if min > a[i,j] then t:= j;
    end;
 S:= a[1,t]+a[2,t]+a[3,t]+a[4,t]+a[5,t];
writeln('summa =', S:4:2);
end.

___________
вижу, что вы пытались правильно оформить код тегами!
Вот только забыли выделить ваш исходный код перед нажатием кнопочки с решёточкой #
Код должен быть МЕЖДУ тегов [CODE] и [ / CODE]
В следущих раз будьте внимательней!

Модератор.

[Serge_Bliznykov]

в решении Вы допустили ряд ошибок!
одна ошибка связана с тем, что Вы в одном цикле и вводите элементы и вычисляете (пытаетесь) вычислить минимум. a[1,1] не задано в момент его присвоения.
другая ошибка - это то, что вы сравниваете с Min - но нигде его в цикле не присваиваете. да и я бы вообще рекомендовал отказаться от Min - лучше хранить индексы минимального элемента.
ну и совсем "глупая" ошибка (точнее недочёт, конечно) - это то, что для целочисленной матрицы для хранения суммы вы задаёте переменную ВЕЩЕСТВЕННОГО типа. что, для целых чисел сумма может быть дробным числом?!


Например, я бы предложил такое решение:

.....
var 
  a: mas;
  S, i, j, MinI, MinJ : integer;
begin
  MinI:=1; MinJ := 1; {будем считать изначально минимальным элемент в позиции 1,1}
  writeln('vvedite massiv');
  for i:= 1 to n do
    for j:= 1 to n do
    begin
        readln(a[i,j]);
        if a[i,j] < a[MinI, MinJ] then begin
             MinI:= i;
             MinJ := j;
        end;
    end;
    WriteLn(' minimalnya element = ', a[MinI, MinJ], ' raspologen v stroke ',MinI);

    {подсчёт суммы элементов строки} 
    S := 0; 
    for j:=1 to n do
        S:= S + a[MinI, j];

    writeln('summa =', S);
    readln;

end.