Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

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

5-9 класс

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

Ryabec 09 сент. 2014 г., 20:37:32 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Sergey8888
09 сент. 2014 г., 22:46:46 (9 лет назад)

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.

Ответить

Другие вопросы из категории

Написать программу на паскале.

Хоть какую-нибудь задачку решите, пожалуйстаа

Дана зашифрованная пословица.Чтобы рубить дрова, нужен 14,2,3,2,7, а чтобы полить огород – 10,4,5,1,6.

Рыбаки сделали во льду 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
спасибо

1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже

паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль

Помогите срочно! Паскаль. Для продажи книг в магазине используется компьютер. Составте программу, которая по стоимости книги и сумме денег, внесенной

покупателем, выводит на экран сумму причитающейся сдачи,если денег внесено больше.Если сдачи не требуется, программа выводит на экран " Спасибо !".

Пожалуйста! Напишите программу для паскаля-

Имеются два числа:
а) вычислите сумму и разность этих чисел, используя два оператора readln.
б) перепишите программу так, чтобы использовался один оператор readln.
в) добавьте комментарии к программе.

Помогите решить задачки на паскале я совсем не разбираюсь в этом!!! 1)Дана таблица со значениями среднемесячных температур в течение года. Составить

программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.



Вы находитесь на странице вопроса "Составте программу в паскале.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.