Помощь - Поиск - Пользователи - Календарь
Полная версия: Квадратная матрица Пожалуйста!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ildar
Пусть дана вещественная квадратная матрица порядка 10. В строках с отрицательным элементом на главной диагонали найти:
а) сумму элементов;
б) наиболmibq из элементов.
Lapp
for j:=1 to 10 do if a[j,j]<0 then begin
s:=0;
x:=s;
for i:=2 to 10 do begin
s:=s+a[j,i];
if a[j,i]>x then x:=a[j,i]
end;
WriteLn('сумма ',s,', максимальный ',x)
end
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.