Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Массивы, типичная задачка.
Пусть дана вещественная квадратная матрица порядка п. Получите х1*хn + х2*хn-1 + ... + хn*х1, где хi — наибольшее значение элементов i-й строки данной матрицы.
Собственно, наибольшие значения вывожу в одномерный массив, но как выполнить расчет по формуле и выдать его..

program Matrix;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
mas, mis : array[1..nmax] of integer;
max:integer;
n,i,j:integer;
begin
randomize;
writeln ('Vvedite poryadok kvadratnoy matritsi n');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a [i,j]:=random(10)
end;
end;
for j:=1 to n do
begin
mas :=a[i,j];
for i:=1 to n do
begin
if mas < a[i,j] then mas:=a[i,j];
end;
end;
for i:=n to 1 do
begin mis:=mas;
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write (a[i,j]:2);
writeln (' ',mas);
writeln (' ',mis
);
end;
end.
1 | Автор: treo_2 | 2014-05-09, 14:40   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: