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

227

459

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

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

Matildos2017

Информатика

4,5(16 оценок)

Procedure massiv; var a: array[1..10] of integer; i,max,min: integer; begin min: =1; max: =1; randomize; for i: =1 to 10 do begin a[i]: =random(100); if a[i]< a[min] then min: =i; if a[i]> a[max] then max: =i; write(a[i],' '); end; writeln('минимальное ', a[min], ' максимальное ', a[max]); if min< max then for i: = min+1 to max-1 do write(a[i],' ') else for i: = max+1 to min-1 do write(a[i],' ') end; begin massiv() end.