0 / 0 / 0
Регистрация: 27.08.2016
Сообщений: 75
1

Нужно чтобы среди введенных чисел выбирал наибольшее и выводил его на экран.

10.10.2016, 19:19. Показов 763. Ответов 1
Метки нет (Все метки)

Нужно чтобы среди введенных чисел выбирал наибольшее и выводил его на экран. Помогите доделать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program naibolshee;
var
i,n:integer;
max,x:real;
begin
write('Введите число элементов: ');
readln(n);
write('Введите числа: ');
for i:=1 to n do
readln(x);
begin
if x > max then
max:=x;
writeln('Ваше наибольшее число: ',max);
end;
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2016, 19:19
Ответы с готовыми решениями:

Из трёх введенных с клавиатуры вещественных чисел выбрать наибольшее и вывести его на экран
1. Из трёх данных вещественных чисел R, M, Y выбрать наибольшее и вывести его на экран. Числа R, M,...

Определить наименьшее среди положительных и наибольшее среди отрицательных введенных чисел
Помогите написать программу: пользователь вводит числа заканчивая введение нулем. Определить...

Определить наименьшее среди положительных и наибольшее среди отрицательных введенных чисел
Помогите написать программу: пользователь вводит числа заканчивая введение нулем. Определить...

Найти наибольшее среди N введенных чисел
Найти наибольшее среди N введенных чисел. … ‘ объявление переменных и ввод значения N max =...

1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
10.10.2016, 20:07 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program naibolshee;
var
i,n:integer;
max,x:real;
begin
write('Введите число элементов: ');
readln(n);
write('Введите числа: ');
for i:=1 to n do
 begin
  readln(x);
  if i=1 then max:=x
  else if x>max then max:=x;
 end;
writeln('Ваше наибольшее число: ',max);
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2016, 20:07
Помогаю со студенческими работами здесь

Среди введенных с клавиатуры целых чисел найти наибольшее и наименьшее
Помогите люди добрые написать скрипты для лабораторки в CMD\BAT 1) Среди введенных с клавиатуры...

Определить среди введенных чисел наибольшее и наименьшее числа, а также среднее значение
Ввод пользователем заранее не известного количества чисел (выбрать признак окончания ввода -...

Вывести на экран количество четных чисел среди введенных чисел
С клавиатуры вводятся натуральные числа, пока введенное число не будет меньше предыдущего. ...

Определить наибольшее значение среди чисел и вывести на экран
Сгенерировать K случайных чисел из диапазона от a до b (а и b ввести с клавиатуры). Определить...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru