Составте программу в паскале. В целочисленном массиве из 10 чисел найти максимум и минимум и вывести на печать те элементы, которые находятся между максимумом и минимумом.
Составте программу в паскале.
В целочисленном массиве из 10 чисел найти максимум и минимум и вывести на печать те элементы, которые находятся между максимумом и минимумом.
Гость
Ответ(ы) на вопрос:
Гость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[max] then max:=i;
write(a[i],' ');
end;
writeln('Минимальное ', a[min], ' Максимальное ', a[max]);
if min
Не нашли ответ?
Похожие вопросы