Считываем сколько чисел получим(или сами решаем чему равно n), делаем цикл на считывание каждого, ищем в них мин и макс.
VAR N, i:integer;
k, min, max:real;
begin
readln(N);
for i:=1 to N do begin
readln(k);
if i=1 then begin min:=k; max:=k end
else if k<min then min:=k
else if k>max then max:=k;
end;
writeln(min-max);
end.
4. Б
7. 5 -> 25 -> 26 -> 27 -> 28 -> 784 (Г)
10. M = 2 в степени i, где i - это кол-во бит на символ Ответ: 8
Видеокамера в основном получает снимок и записывает его на карту памяти и для этого не требуется лабораторной обработки и рисунок можно распечатать несколько раз или изменить содержимое рисунка, а фотоаппарат делает снимок и записывается как "скрытое изображение" но они не считается снимком, чтобы получить снимок надо провести лабораторную обработку и занимает время в отличии от видеокамеры.
var a,b,c,max,min,s: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
s:=(a+b+c)-(max+min);
writeln(s);
end.
Пример:
5 2 9
5