Составте программу в паскале.
5-9 класс
|
В целочисленном массиве из 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[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.
Другие вопросы из категории
Хоть какую-нибудь задачку решите, пожалуйстаа
Рыбаки сделали во льду 3,7,2,7,8,9,11 и стали ловить рыбу.
Самый колючий зверь в лесу – это 12,13.
А теперь расшифруйте пословицу:1,2,3,4,5,1,67,8,9,10,119,4,7,4,13,12,14
Читайте также
s=sqr 1/ 2+sqr 2 /4+ sqr 3/6+...+sqr n/a
спасибо
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
покупателем, выводит на экран сумму причитающейся сдачи,если денег внесено больше.Если сдачи не требуется, программа выводит на экран " Спасибо !".
Имеются два числа:
а) вычислите сумму и разность этих чисел, используя два оператора readln.
б) перепишите программу так, чтобы использовался один оператор readln.
в) добавьте комментарии к программе.
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.