1) "мир" становится в расширение
2) "Енисей" сдает назад
3) "Обь" и "Восток" проходят дальше прохода навстречу "Енисею"
4) "Мир" выходит из расширения
5) "Обь" и и " Восток" сдают назад к прооду
6) "Енисей" становится в проход
7) "Обь" и "Восток" проплывают проход
8) "Енисей" выходи из прохода
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
Привет!Не знаю может поможет чем-то вот эта ссылка :http://revolution.allbest.ru/audit/00238363_0.html
Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(34);
write(a[i],' ');
end;
writeln;
sum:=0;
k:=0;
for i:=1 to n do if a[i] mod 3 = 0 then
begin
k:=k+1;
sum:=sum +a[i];
end;
writeln('кол-во: ',k);
writeln('сумма: ',sum);
writeln('ср. арифм: ',sum/k);
end.