// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(12,-50,50); a.Println;
Writeln('Сумма нечетных элементов: ',a.Where(k->k.IsOdd).Sum)
end.
Пример
22 -27 4 3 -30 -25 29 -27 -44 26 21 -28
Сумма нечетных элементов: -26
begin
var w:array[1..4] of string;
var s:string:='';
for var i:=1 to 4 do begin Readln(w[i]); s:=s+w[i] end;
for var i:=1 to 3 do Writeln(s+' '+i*'!')
end.
Пример
Первое
Второе
Третье
Четвертое
ПервоеВтороеТретьеЧетвертое !
ПервоеВтороеТретьеЧетвертое !!
ПервоеВтороеТретьеЧетвертое !!!