151 в десятичной
не меньше 20 символов
begin
var arr := arrRandom(10, -10, 10);
write('Исходный массив: ');
foreach var e in arr do write(e : 4);
writeln();
writeln('Сумма положительных элементов: ',
arr.Where(e -> e >= 0).Sum(e -> e));
writeln('Сумма чётных элементов: ',
arr.Where(e -> e mod 2 = 0).Sum(e -> e));
writeln('Сумма первых 5 элементов: ',
arr.Take(5).Sum(e -> e));
end.
Объяснение:
^ не ставится, но выполняет свои действия, у себя его ставьте!
Var s,s1,t1,t2:string;i,n,m:integer;
beginread(s);n:=length(s);for i:=n downto 1 do s1:= s1 + s[i];m:=n div 2;writeln(n, m :4);t1:= copy(s,1,m);t2:= copy(s1,1,m);if t1 = t2 then writeln ('Введенный текст перевертыш')else writeln (' Не перевертыш введенный текст');end.<span />