дана вещественная матрица размерности 8*10. Найти максимальный элемент и его индекс в каждой строке; произв

@Чижова · Регистрация: 24.12.2016

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

дана вещественная матрица размерности 8 на 10. Найти максимальный элемент и его индекс в каждой строке; произведение элементов на главной диагонали

@Tosse · 14.01.2017, 09:58

Pascal

const
m = 10;
n = 8;
var
a:array[1..n,1..m] of real;
i,j, k: integer;
p, max:real;
begin
writeln('Исходная матрица:');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(18) - 9 + random;
        write(a[i,j]:6:2);
        end;
    writeln;
    end;
for i:=1 to n do
    begin
    max:=a[i,1];
    for j:=2 to m do
        if a[i,j] > max then
            begin
            max:=a[i,j];
            k:=j;
            end;
     writeln('Максимальный элемент строки ',i ,' = ', max:6:2, ' его индекс:  [',i , ',' ,k,']');
        end;
    writeln;
p:=1;
for i:=1 to n do
    p:=p * a[i,i];
writeln(Произведение элементов главной диагонали = ',p:6:2);
writeln;
end.

@Чижова 0 / 0 / 0 Регистрация: 24.12.2016 Сообщений: 44
		1
	дана вещественная матрица размерности 810. Найти максимальный элемент и его индекс в каждой строке; произв 12.01.2017, 21:57. Показов* 2062. Ответов 1 Метки нет (Все метки) дана вещественная матрица размерности 8 на 10. Найти максимальный элемент и его индекс в каждой строке; произведение элементов на главной диагонали 0

	14.01.2017, 09:58

дана вещественная матрица размерности 8*10. Найти максимальный элемент и его индекс в каждой строке; произв

Решение