Ввести с клавиатуры N чисел, найти из них наибольшее и вывести его

@Asya_inter · Регистрация: 14.11.2014

Студворк — интернет-сервис помощи студентам

В книге был приведен пример, но решения там нет, а как вообще должна начинатьсся запись решения такой задачи? (Если рассматривать на примере, то это должно быть так?: ввели числа: 3 6 8 5 54 и получить должны в итоге 54.Да?) "Предположим, нам необходимо ввести с клавиатуры N чисел, найти из них наибольшее и вывести его. Для решения этой задачи предлагается следующий алгоритм":

1. Ввести первое число в переменную Max.
2. Ввести следующее число в переменную Next.
3. Если Next>Max, то Max:=Next.
Пункты 2 и 3 повторять, пока не будут введены все числа.
4. Вывести значение переменной Max.

@Puporev · 17.11.2014, 07:32

Pascal

var n,i,max,next:integer;
begin
repeat
write('Введите количество чисел n>1 n=');
readln(n);
until n>1;
write('Введите первое число: ');
readln(max);
writeln('Введите остальные ',n-1,' чисел:');
for i:=2 to n do
 begin
  readln(next);
  if next>max then max:=next;
 end;
write('max=',max);
end.

@Asya_inter 7 / 7 / 0 Регистрация: 14.11.2014 Сообщений: 166
		1
	Ввести с клавиатуры N чисел, найти из них наибольшее и вывести его 16.11.2014, 20:55. Показов 13359. Ответов 1 Метки нет (Все метки) В книге был приведен пример, но решения там нет, а как вообще должна начинатьсся запись решения такой задачи? (Если рассматривать на примере, то это должно быть так?: ввели числа: 3 6 8 5 54 и получить должны в итоге 54.Да?) "Предположим, нам необходимо ввести с клавиатуры N чисел, найти из них наибольшее и вывести его. Для решения этой задачи предлагается следующий алгоритм": 1. Ввести первое число в переменную Max. 2. Ввести следующее число в переменную Next. 3. Если Next>Max, то Max:=Next. Пункты 2 и 3 повторять, пока не будут введены все числа. 4. Вывести значение переменной Max. 0

Опции темы

Ввести с клавиатуры N чисел, найти из них наибольшее и вывести его

Решение