Дан массив A [1 ... 18, 1 ... n] и натуральное число n. Составить программу поиска наибольшего по модулю элемента массива, а также индекса этого элемента.

Question

Freda

Информатика

27 сентября, 03:23

Дан массив A [1 ... 18, 1 ... n] и натуральное число n. Составить программу поиска наибольшего по модулю элемента массива, а также индекса этого элемента.

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Полина Виноградова · Answer 1

program arrays_19;

const n=5; / / задаем n

var i, j, x1, x2, k: integer;

m: array[1 ... 18,1 ... n] of integer;

begin

for i:=1 to 18 do begin

for j:=1 to n do begin

m[i, j]:=random (101) - 50; / / заполнение матрицы случайными числами и вывод на экран

write (m[i, j]:5);

end;

writeln;

end;

k:=-100000; / / задаем начальное значение для максимального

for i:=1 to 18 do begin

for j:=1 to n do begin

if abs (m[i, j]) >k then begin k:=m[i, j]; x1:=i; x2:=j; end;

end;

end;

write (' максимальный элемент по модулю = ', k,' его индексы ', x1,' ', x2); / / вывод ответа

end.