Код: Выделить всё
var i,N:integer; max,X: real; S: string;begin
//Ввод количества элементов последовательности.
S:=InputBox ('Ввод',
'Введите_количество_элементов_в_последовательности. ','0');
N:=StrToFloat(S);
//Ввод первого элемента последовательности.
S:=InputBox ('Ввод_элементов_последовательности',
'Введите_число.','0');
X:=StrToFloat(S);
//Предположим, что первый элемент максимальный - Max=X.
max:=X;
//Параметр цикла принимает стартовое значение i=2,
//т.к. первый элемент уже введён.
for i:=2 to N do
begin
//Ввод следующих элементов последовательности.
S:=InputBox ('Ввод_элементов_последовательности',
'Введите_число.','0');
X:=StrToInt(S);
//Если найдётся элемент, превышающий максимум,
//записать его в ячейку Max -
//теперь он предполагаемый максимум.
if X>max then max:=X;
end;
//Ввыод наибольшего элемента последовательности.
MessageDlg (’Значение_наибольшего_элемента_-_’
+FloatToStr(max),MtInformation,[mbOk],0);
end;Но при компиляции выходит такое сообщение:
unit1.pas(36,4) Error: Wrong number of parameters specified for call to "InputBox"
messagedialogs.inc(249,10) Hint: Found declaration: InputBox(const AnsiString,const AnsiString,const AnsiString):AnsiString;
unit1.pas(38,4) Error: Incompatible types: got "Double" expected "LongInt"
Подскажите как исправить ошибки?
