// PascalABC.NET 3.3
1.
begin
var a:=ArrRandom(10,-10,10); a.Println;
a:=a[1:]; a.Println;
end.
Пример:
7 4 0 -4 0 8 5 -6 -9 -8
4 0 -4 0 8 5 -6 -9 -8
2.
begin
var a:=ArrRandom(10,0,4); a.Println;
var x:=ReadInteger('x =');
a.IndexesOf(z->z=x).Select(z->z+1).Println;
end.
Пример:
2 1 3 0 4 2 3 2 3 0
x = 3
3 7 9
Очень интересные задания)))
179 - последняя
180. Первую строку наверное не надо писать. Со второй можно начать. Р - разбойник, К - купец.
181. Стрелками показано откуда и куда переливаем
A12, так как в только в ней нет знака абсолютной адресации($)
Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>