Ответ:
program pr1;
const N=1000;
var a:array[1..n]of integer;
max,min,i:integer;
begin
for i:=1 to n do begin
read (a[i]);
if a[i]=0 then break;
end;
max:=-1;
min:=30001;
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if (a[i]<min) and (a[i]>0) then min:=a[i];
end;
write(max-min);
end.
Вычислим первую пустую ячейку 191-123=68
вычислим вторую пустую ячейку 348+21=369
вычислим третью пустую ячейку 308-210=98
итого можно записать содержащуюся информацию в виде
123+68=191
348+21=369
98+210=308
Var N, lastNum, mod5: integer;
flag: boolean;
begin
readln(N);
lastNum := N mod 10;
mod5 := N mod 5;
flag := (lastNum = 5) or (lastNum = 0);
if flag then
writeln('Число ', N, ' делится на 5 по признаку делимости')
else
writeln('Число ', N, ' не делится на 5 по признаку делимости');
if (mod5 = 0) then
writeln('Число ', N, ' делится на 5 по определению')
else
writeln('Число ', N, ' не делится на 5 по определению');
flag := flag xor (mod5 = 0);
if flag then
writeln('Результаты не совпадают, это не признак делимости!')
else
writeln('Результаты совпадают, это возможно признак делимости')
end.