Question

Помогите, пожалуйста, решить задачу!

Answer 1

Ответ:

var i,m,x:integer;

begin

 m:=-32767;

 i:=1;

 while i<=5 do

 begin

   readln(x);

   if x>m then

     m:=x;

   i:=i+1

 end;

 write(m)

end.

Объяснение:

Программа ищет максимальное из 5 чисел введённых с клавиатуры( при условии что будет использован целочисленный тип данных integer  и то это для старых версий где этот тип данных мог принимать значения от -32767 до 32767(каждое такое число занимало 2 байта памяти), сейчас например в Pascal.ABC этот тип данных может принимать значения от -2147483648 до 2147483647(что занимает 4 байта памяти))