Матрицы. Элементы умножить на 10, если наибольший элемент находится на главной диагонали

@max_scotch · Регистрация: 11.05.2012

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

Помогите пожалуйста с решением этой задачи

Даны натуральное число N, действительная квадратная матрица порядка N. Элементы матрицы умножить на 10, если наибольший элемент матрицы (в предположении, что такой элемент единственный) находится на главной диагонали, и на 0.5 в противном случае.

@ermolay · 18.05.2012, 18:20

Pascal

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of real;
  i,j,n,imax,jmax: integer;
  k,max: real;
begin
  randomize;
  write('Введите размерность массива n: ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:6:0);
    end;
    writeln;
  end;
  writeln;
  
  max:=a[1,1];
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]>max then
      begin
        max:=a[i,j];
        imax:=i;
        jmax:=j;
      end;
  writeln('Максимальный элемент: ',max,'[',imax,',',jmax,']');
  if imax=jmax then k:=10 else k:=0.5;
  
  writeln('Полученный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]*k:6:1);
    writeln;
  end;
  readln;
end.

@max_scotch 0 / 0 / 0 Регистрация: 11.05.2012 Сообщений: 17
		1
	Матрицы. Элементы умножить на 10, если наибольший элемент находится на главной диагонали 18.05.2012, 10:10. Показов 2699. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с решением этой задачи Даны натуральное число N, действительная квадратная матрица порядка N. Элементы матрицы умножить на 10, если наибольший элемент матрицы (в предположении, что такой элемент единственный) находится на главной диагонали, и на 0.5 в противном случае. 0

	18.05.2012, 18:20

Матрицы. Элементы умножить на 10, если наибольший элемент находится на главной диагонали

Решение