Написать программу на паскале. в целочисленной матрице размером 10x10 найдите максимальное значение и индексы всех элементов, равных ему.

169

499

Посмотреть ответы 2

Ответы на вопрос:

dariapark1

Информатика

4,7(60 оценок)

Var ar: array[1..10,1..10] of integer; i,j,max,count: integer; begin count: =1; max: =0; randomize; for i: =1 to 10 do begin for j: =1 to 10 do begin ar[i,j]: =random(10)+1; if (j mod 10=0) then writeln(ar[i,j]) else write(ar[i,j],' '); if (ar[i,j] > max) then max: =ar[i,j]; end; end; for i: =1 to 10 do begin for i: =1 to 10 do begin for j: =1 to 10 do begin if (ar[i,j] = max) then begin writeln('индекс ',count,' элемента = ',i,' ',j); inc(count); end; end; end; end.