<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString.Replace(' ',''))
end.
<u>Пример</u>
А роза упала на лапу А з о ра
АрозаупаланалапуАзора
"лиро касс" - "красный помидор"
"дум касс дан" - "большой красный трамвай"
следовательно ,"касс" означает "красный"
"дум касс дан" - "большой красный трамвай"
"ксер дан" - "большой конь"
"дан" означает "большой"
следовательно "трамвай" переводится как "дум"
11+1*3-4=10
-8+2*3+2=0
исходное положение (10;0)
PascalABC.NET 3.3
begin
var a:=ArrRandom(13,-2,4).Println;
writeln('s = ',a.Where(x->x>0).Sum);
a:=a.Select(x->x<0?1:x).ToArray;
a.Println;
writeln('Кол-во единиц = ',a.Where(x->x=1).Count);
end.
Пример:
-2 2 3 2 2 4 4 -1 0 2 2 4 1
s = 26
1 2 3 2 2 4 4 1 0 2 2 4 1
Кол-во единиц = 3