17 lines
322 B
ObjectPascal
17 lines
322 B
ObjectPascal
// Öèêë for. Ìàêñèìóì èç ââåäåííûõ ÷èñåë
|
|
const n = 10;
|
|
|
|
var max: real;
|
|
|
|
begin
|
|
writelnFormat('Ââåäèòå {0} ÷èñåë',n);
|
|
max := integer.MinValue; // ñàìîå ìàëåíüêîå öåëîå ÷èñëî
|
|
for var i:=1 to n do
|
|
begin
|
|
var x: real;
|
|
read(x);
|
|
if x>max then
|
|
max := x;
|
|
end;
|
|
writeln('Ìàêñèìàëüíîå ðàâíî ',max);
|
|
end. |