Считываем сколько чисел получим(или сами решаем чему равно 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.
Данная программа работать не будет, вот исправленная программа:
program a1; // Название программы (a1)var a,b,s: integer; // Список переменных, которые принадлежат типу Innteger;begin // Началоa:=10; //Присвоение к переменной a значение 10.b:=7; //Присвоение к переменной b значение 7.s:=a+b; //Присвоение к переменной s сумму переменной a и b.writeln ('Сумма=', s); //Вывод значения переменной s.
end. //конец
Программа выведет следующее: "Сумма=17".
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var a := ArrRandom(10, -5, 10);
writeln(a);
var i:=1;
var s:=0;
while i<=9 do begin
s:=s+a[i];
i:=i+2;
end;
writeln(s);
end.
<span>0.001
</span><span>Решение должно иметь от 20 до 5000 символов</span>