в одномерном массиве, состоящем из n целых элементов , лежащих в промежутке [-30;20], вычислить сумму элементов массива , рассположенных после первого элемента , равного нулю
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
program z1;
var i,n,k,s:integer;
a:array [1..100] of integer;
begin
write ('n (n<=100) = ');
readln (n);
k:=0;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(51)-30;
write (a[i],' ');
if (a[i]=0) and (k=0) then k:=i
end;
writeln;
if k=0 then writeln ('Нет элемента равного 0')
else
begin
for i:=k to n do s:=s+a[i];
writeln('s = ',s)
end
end.