Дана квадратная матрица...

@rulez-vz · Регистрация: 24.03.2009

Author24 — интернет-сервис помощи студентам

Дана квадратная матрица. Увеличить все элементы строки с минимальной суммой элементов на среднее арифметическое элементов матрицы, лежащих выше главной диагонали.

@кот Бегемот · 06.11.2009, 19:34

Pascal

var
a:array[1..100,1..100]of integer;
sum:array[1..100]of integer;
n,i,j,s,sred,kol,nmin,min:integer;
begin
writeln('Введите размерность матрицы');
readln(n);
writeln('Введите элементы матрицы');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
{ищем среднее арифметическое выше диагонали}
for i:=1 to n-1 do
 for j:=i+1 to n do
begin
s:=s+a[i,j];
inc(kol);
end;
sred:= s div kol;
{считаем суммы элементов в строках}
for i:= 1 to n do
 for j:=1 to n do
sum[i]:=sum[i]+a[i,j];
{ищем строку с минимальной суммой элементов}
min:=sum[1];
nmin:=1;
for i:=2 to n do
if sum[i]<min then begin
min:=sum[i];
nmin:=i;
end;
{увеличиваем элементы строки с минимальной суммой на среднее арифметическое}
for i:=1 to n do
a[nmin,i]:=a[nmin,i]+sred;
writeln('Полученная матрица');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.

@rulez-vz 1 / 1 / 0 Регистрация: 24.03.2009 Сообщений: 166
		1
	Дана квадратная матрица... 06.11.2009, 18:42. Показов 1248. Ответов 1 Метки нет (Все метки) Дана квадратная матрица. Увеличить все элементы строки с минимальной суммой элементов на среднее арифметическое элементов матрицы, лежащих выше главной диагонали. 0

	06.11.2009, 19:34

Дана квадратная матрица...

Решение