Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 3
1

Вводится последовательность целых чисел 10.Найти наименьшее и наибольшее числа

22.04.2013, 19:43. Показов 3297. Ответов 4
Метки нет (Все метки)

Вводится последовательность целых чисел 10.Найти наименьшее и наибольшее числа.Прошу помощи.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2013, 19:43
Ответы с готовыми решениями:

Вводится последовательность из n целых чисел найти сумму всех нечетных чисел
Вводится последовательность из n целых чисел найти сумму всех нечетных чисел Помогите пожалуйста...

Вводится последовательность из 15 целых чисел. Найти количество четных чисел
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать. Вводится...

Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел
Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее...

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.
Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2....

4
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
22.04.2013, 19:46 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var
  i: Byte;
  n,max,min: Integer;
BEGIN
max:=-Maxint;
min:=Maxint;
For i:=1 to 10 do
begin
  Readln(n);
  If n>max Then max:=n;
  If n<min Then min:=n;
end;
Writeln('MAX=',max);
Writeln('MIN=',min);
Readln
END.
1
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 3
22.04.2013, 19:48  [ТС] 3
Спасибо)

Добавлено через 34 секунды
Можешь обьяснить вкратце?что такое Maxint?
0
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
22.04.2013, 19:50 4
Цитата Сообщение от Rost1k Посмотреть сообщение
что такое Maxint
Это предопределенная константа, которая содержит число 32767 (т.е. самое большое число типа Integer)
0
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 3
22.04.2013, 19:51  [ТС] 5
хD,я только начал с паскалем знакомиться,хз что еще к чему
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2013, 19:51

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Введите последовательность из любых чисел R. Найдите наибольшее и наименьшее число.
Введите последовательность из любых чисел R. Найдите наибольшее и наименьшее число.

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Вывести на экран в процессе ввода чисел: a1+a2, a2+a3, …. aN-1+aN
Помогите, пожалуйста! Решить задачу 3 способами: 1. Используя метки и оператор goto (не...

Найти наибольшее и наименьшее из данных чисел (чисел должно быть неограниченное количество)
Найти наибольшее и наименьшее из данных чисел (чисел должно быть неограниченное количество)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.