| Код |
uses crt;
var x:array[1..10,1..10] of real;
i,j,n,ind:integer; pr,max:real;
begin
randomize; clrscr;
writeln('Введите размерность массива* <= 10');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random*10-5;
write(x[i,j]:6:2);
end;
writeln;
end;
writeln; pr:=1;
for i:=1 to n do
begin
max:=x[i,1];
for j:=2 to n do
if x[i,j]>max then begin max:=x[i,j]; ind:=j; end;
writeln('‚В ',i,' строке максимальным является ',ind,' элемент, равный =',max:0:2);
pr:=pr*max;
end;
writeln('Произведение макс. зн. = ',pr:0:2);
readkey;
end.
|
Модератор: пользуемся кнопкой "Код" |