357, 375, 573, 537, 753, 735 так 6
333, 357, 375, 555, 573, 537, 777, 753, 735 так 9
вроде нечего не забыла
В двух столбцах (например, A и B) вводите показатели, в третьем (например, С) вычисляете разницу. Нужное количество можно вычислить с помощью функции СЧЁТЕСЛИ.
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
Uses GraphABC;
begin
line(300,50,300,450);
line(150,250,550,250);
line(300,50,295,60);
line(300,50,305,60);
line(550,250,540,245);
line(550,250,540,255);
<span>end.</span>