Здравствуйте. Помогите решить такую задачу: дана прямоугольная матрица матрица. Найти строку с найбольшей и наименьшей суммой элементов. вывести на печать найденные строки и суммы их элементов. По форуму я искала, но не нашла. Помогите уж
по-моему, решалось много раз....
ну, основная идея такая (например. вариантов множество):
берешь первую строку, считаешь сумму элементов. присваиваешь это значение переменным minsum и maxsum, переменным maxi и mini (номера искомых строк) присваиваешь значение 1.
дальше идешь циклом начиная со второй строки вниз. если сумма больше максимальной, присваиваешь maxsum и maxi соответствующие значения. Аналогично, если меньше минимальной.
а потом печатаешь 4 найденные переменные.
Вот что получилось. Максимальную/минимальную сумму находит правильно. А вот с номером строки проблема
Добавь Begin/End там, где я показал, у тебя при каждом If выполняется только один оператор, а должны выполняться два...
for j:=1 to m do begin { <-- }
s:=s+stroka[i,j];
if s>maxsum then begin { <-- }
maxsum:=s;
maxi:=i;
end; { <-- }
If s<minsum then begin { <-- }
minsum:=s;
mini:=i;
end; { <-- }
end; { <-- }
Да,ступила.. Большое спасибо.
вот эту строку не совсем поняла...
For i:=1 to i-(i-1) do
i:=1
for j:=1 to m do
minsum:=minsum+stroka[1,j];