Вычислить среднее значение максимального и минимального элементов. число элементов и интервал выбрать самостоятельно. , .

129

377

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

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

Полина3333000999

Информатика

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

Готовое решение для pascal abc. program n1; uses crt; var a: array[1..20,1..20] of integer; m,n,i,j,max,min: integer; begin write('введите размеры матрицы: '); readln(m,n); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(40)-20; write(a[i,j]: 6); end; writeln; end; max: =a[1,1]; min: =a[1,1]; for i: =1 to m do for j: =1 to n do begin if a[i,j]> max then max: =a[i,j]; if a[i,j]< min then min: =a[i,j]; end; writeln('max = ',max); writeln('min = ',min); writeln('среднее значение max и min = ',(max+min)/2); end.