Найти максимальные элементы главной и побочной диагонали

@Stanly756 · Регистрация: 15.10.2014

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

Ребят, нужно решить задачу!

Дан Массив А(5,5). преобразовать массив следующим образом: найти максимальные элементы главной и побочной диагонали, элементы 1-ой строки поделить на максимальный из них. Предусмотреть вывод на экран исходного и преобразованного массива

@Puporev · 26.06.2015, 08:25

Pascal

const n=5;
var a:array[1..n,1..n] of real;
    i,j:integer;
    mg,mp,m:real;
begin
randomize;
writeln('Исходный масив А');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
mg:=a[1,1];
mp:=a[1,n];
for i:=2 to n do
 begin
  if a[i,i]>mg then mg:=a[i,i];
  if a[i,n-i+1]>mp then mp:=a[i,n-i+1];
 end;
if mg>mp then m:=mg else m:=mp;
writeln('Максимальный элемент главной диагонали=',mg:0:2);
writeln('Максимальный элемент побочной диагонали=',mp:0:2);
writeln('Из них больше ',m:0:2);
writeln('Преобразованный масив А');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=1 then a[i,j]:=a[i,j]/m;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
end.

@Stanly756 0 / 0 / 0 Регистрация: 15.10.2014 Сообщений: 3
		1
	Найти максимальные элементы главной и побочной диагонали 26.06.2015, 07:41. Показов 986. Ответов 1 Метки нет (Все метки) Ребят, нужно решить задачу! Дан Массив А(5,5). преобразовать массив следующим образом: найти максимальные элементы главной и побочной диагонали, элементы 1-ой строки поделить на максимальный из них. Предусмотреть вывод на экран исходного и преобразованного массива 0

	26.06.2015, 08:25

Найти максимальные элементы главной и побочной диагонали

Решение