Question

Прочитать с экрана 8 целых чисел и из большего вычесть 5. Результат напечатать. (Замечание:использовать в программе не более 3 переменных) (На ПАСКАЛЕ)

Answer 1

var a,b,c:integer;
readln(a);
for c:=1 to 7 do
begin
readln(b);
if(b>a)
a:=b;
end;
b:=a-5;
writeln(b);
end.