Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.(паскаль авс)

Var a,b,c,d,e,m: real; begin writeln('введите 5 чисел'); read(a,b,c,d,e); m: =a; if m< b then m: =b; if m< c then m: =c; if m< d then m: =d; if m< e then m: =e; if a> b then a: =b; if a> c then a: =c; if a> d then a: =d; if a> e then a: =e; write(a,' ',m) end.

паскаль, одномерный массив

 

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

 

f0=(15*16в1)+(0*16в0)=240 , делим столбиком число 240 на 2 (делим и делим) и записываем остатки с конца и получаем число 11110000

т.е.  240/20=120    ост  0

120/2=60    ост  0

60/2=30   ост  0

30/2=15  ост  0

15/2=7   ост  1

7/2=3   ост  1

3/2=1   ост  1

записываем в обратном поряде    11110000

 

1d4=(1*16в2)+(13*16в1)+(4*16в0)=256+208+4=468  делим столбиком число 468 на 2         111010100