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

@данил123456 · Регистрация: 02.12.2013

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

В матрице 8х8 из вещественных чисел в пределах от -20 до 20 найти найбольший элемент главной диагонали и определить его индексы. Вывести саму матрицу, ее главную диагональ, а также строку и столбец, на пересечении которых стоит найбольший элемент диагонали.

Помогите пожалуйста!

@Puporev · 02.03.2014, 12:59

Pascal

uses crt;
const n=8;
var a:array[1..n,1..n] of real;
    i,j,imx:integer;
    mx:real;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-20+random*(40);
    write(a[i,j]:8:2);
   end;
  writeln;
 end;
writeln('Главная диагональ:');
mx:=a[1,1];
imx:=1;
for i:=1 to n do
 begin
  write(a[i,i]:8:2);
  if a[i,i]>mx then
   begin
    mx:=a[i,i];
    imx:=i
   end;
 end;
writeln;
write('Максимальный элемент=',mx:0:2,' в строке и столбце ',imx);
readln
end.

@данил123456 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 19
		1
	Найти найбольший элемент главной диагонали матрицы и определить его индексы 02.03.2014, 12:29. Показов 1517. Ответов 1 Метки нет (Все метки) В матрице 8х8 из вещественных чисел в пределах от -20 до 20 найти найбольший элемент главной диагонали и определить его индексы. Вывести саму матрицу, ее главную диагональ, а также строку и столбец, на пересечении которых стоит найбольший элемент диагонали. Помогите пожалуйста! 0

	02.03.2014, 12:59

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

Решение