Составте программу в паскале.

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

Question

Информатика

Самуил

25 декабря, 05:55

Составте программу в паскале.

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

+4

Ответы (1)

Знаете ответ на вопрос?

Агриппа · Answer 1

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]
if a[i]>a[max] then max:=i;

write (a[i],' ') ;

end;

writeln ('Минимальное ', a[min], ' Максимальное ', a[max]) ;

if min
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.