Дана действительная матрица 18 х n. Найти значение наибольшего по модулю элемента матрицы, а также индексы данного элемента.
Цитата:
program mas2;
uses crt;
const n=20;
var a: array[1..18,1..n] of real;
i,j,ki,kj:integer;
amax:real;
begin
randomize;
writeln('Выберите способ заполнения массива (1-авто, 2-вручную)');
repeat
read(p);
until (p=1) or (p=2);
for i:=1 to 18 do
for j:=1 to n do begin
if p=1 then a[i,j]:=random(400)/(random(30)+1)-50 else read(a[i,j]);
end;
writeln;
for i:=1 to 18 do begin
for j:=1 to n do
write(a[i,j]:5:5);
writeln;
end;
amax:=abs(a[1,1]);
ki:=1;
kj:=1;
for i:=1 to 18 do
for j:=1 to n do
if abs(a[i,j])>amax then begin amax:=abs(a[i,j]); ki:=i; kj:=j; end;
writeln;
writeln('Наибольший по модулю элемент имеет индексы ',ki,' и ',kj,' и равен ',amax);
readln;
end.
|
Строчат программы недостудентусы, а мы их создаем с нуля
. Это делать не столько трудно, как некогда.
Исправил, попробуйте такой вариант!