Консультация № 137885
26.05.2008, 20:12
0.00 руб.
0 1 1
Вводится последовательность из N вещественных чисел. Найти наибольшее число.

Обсуждение

давно
Старший Модератор
31795
6196
29.05.2008, 12:58
общий
это ответ
Здравствуйте, Sanq4!

Программа в приложении.
Удачи!

Приложение:
var a,b:real; n:integer;begin {вводим число элементов последовательности} repeat write(‘Enter N:‘); readln(n); until n>0; {вводим первое значение, пока оно есть максимальное} write(‘Enter number:‘); readln(b); {в цикле вводим все остальные и проверяем условие} while n>1 do begin write(‘Enter number:‘); readln(a); if a>b then b:=a; dec(n); end; {выводим результат} writeln(‘Maximum:‘,b:20:10);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа