// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),-5,5);
a.Println;
var b:=a.Select((x,i)->x=0?i+1:0).Where(i->i>0);
if b.Count>0 then begin
b.Println(','); Writeln('Кол-во: ',b.Count)
end
else Writeln('Нет нулевых элементов')
end.
<u><em>Тестовое решение:</em></u>
n= 20
-4 2 5 -2 0 5 4 4 -3 -2 -5 2 1 0 -2 0 4 1 -2 3
5,14,16
Кол-во: 3
program Project1;
var s,s1,s2:string;
begin
Readln(s);
s1:=copy(s,3,3);
s2:=copy(s,1,2);
delete(s,1,3);
insert(s1,s,1);
insert(s2,s,2);
Writeln(s);
Readln
end.
Исполнитель (для количества слов исполнитель,исполнитель,исполнитель,исполнитель)
Можно попробовать заюзать хамачи, они смогут создать “локальную сеть “ (подобие) но на самом деле всё будет работать через инет