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

@Ксюньчик · Регистрация: 11.02.2011

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

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

@_LoneR_ · 11.02.2011, 17:46

как-то так

Pascal

const n=5;
var a:array[1..n,1..n]of Integer;
i,j:Byte; k,max,s:Real;
begin
Randomize;
for i:=1 to n do begin
for j:=1 to n do begin
  a[i][j]:=Random(25)+1;
  Write(a[i,j]:4);
end;
Writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do begin
  if a[i,j]>max then
  max:=a[i,j];
end;
Writeln('max=',max:1:1);
begin
 
if max = a[i,i] then
max:=max*10
else
max:=max*0.5;
end;
writeln(max:1:1);
readln;
end.

@Filip Filipuch · 12.02.2011, 00:02

Задати масив n*n i k<n число.Розділити елементи к-рядка на діагональний елемент, розміщений в цьому рядку.Вивести обидві матриці.
ДОПОМОЖІТЬ БУДЬ ЛАСКА

@_LoneR_ · 12.02.2011, 14:07

Сообщение от Filip Filipuch

Задати масив n*n i k<n число.Розділити елементи к-рядка на діагональний елемент, розміщений в цьому рядку.Вивести обидві матриці.
ДОПОМОЖІТЬ БУДЬ ЛАСКА

Если вам нужна помощь с решением задачи то создайте отдельную тему в соответствующем разделе, и на русском языке.

@Ксюньчик 0 / 0 / 1 Регистрация: 11.02.2011 Сообщений: 12
		1
	Элементы домножить на 10, если наибольший элемент матрицы находится на главной диагонали 11.02.2011, 16:34. Показов 2130. Ответов 3 Метки нет (Все метки) Даны натуральное число n, действительная квадратная матрица порядка n, действительные числа a1,...,an+5. Элементы последовательности a1,...,an+5 домножить на 10, если наибольший элемент матрицы (в предположении, что такой элемент единственный) находится на главной диагонали, и на 0.5 в противном случае. 0

@Filip Filipuch 0 / 0 / 0 Регистрация: 10.02.2011 Сообщений: 3
	12.02.2011, 00:02	3
	Задати масив n*n i k<n число.Розділити елементи к-рядка на діагональний елемент, розміщений в цьому рядку.Вивести обидві матриці. ДОПОМОЖІТЬ БУДЬ ЛАСКА 0

@_LoneR_ 90 / 90 / 13 Регистрация: 15.01.2011 Сообщений: 494
	12.02.2011, 14:07	4
	Сообщение от Filip Filipuch Задати масив n*n i k<n число.Розділити елементи к-рядка на діагональний елемент, розміщений в цьому рядку.Вивести обидві матриці. ДОПОМОЖІТЬ БУДЬ ЛАСКА Если вам нужна помощь с решением задачи то создайте отдельную тему в соответствующем разделе, и на русском языке. 0