Заполнить массив значениями функции y=5 sin(0.6x) для всех значений x от-8 до 8

219

365

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

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

Oishahon

Информатика

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

Var a: array [1..10, 1..10] of integer; i, j, max, min, imin, imax, jmin, jmax: integer; begin imax: =0; imin: =0; jmax: =0; jmin: =0; max: =-maxint; min: =maxint; for i: =1 to 10 do begin for j: =1 to 10 do begin a[i,j]: =random(89)+10; write(a[i,j],' '); if a[i,j]< min then begin min: =a[i,j]; imin: =i; jmin: =j; end; if a[i,j]> max then begin max: =a[i,j]; imax: =i; jmax: =j; end; end; writeln; end; writeln; writeln('максимальный элемент: ',max); writeln('его индекс ',imax,' ',jmax); writeln('минимальный элемент: ',min); writeln('его индекс ',imin,' ',jmin); end.