Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
5.а)1вар.они находяться по соседству-ну даже незнаю.
б)Литературные герои-детективы
в)крупные города(возможно)
г)Реки(Крупные)наверно
д)Литературные произведения
е)Носят звания "Город Герой"(Не знаю что ещё написать:) )
4.я не знаю...в путеводителях....
Может так-Общие:Памятник.,(неуверенна"Город Герой"),река,город,;
Единичн.-Река Урал,столица России (Москва),Памятник Пушкину в Санкт-Петербурге.,И т.д
Как то так
3. 5,8
7. б
8. 16
Задумайте число
прибавьте к этому числу 6
прибавьте к этому числу 4
умножьте случившееся на 2
отнимите 4
прибавьте 6
отнимите 2
разделите на 2
отнимите задуманное число
отнимите 5