===== PascalABC.NET =====
begin
ReadArrInteger(3).Select(p -> p.IsEven ? p * p : p).Println(',')
end.
Замечание: В Паскаль данные разделяются пробелами, или переводами строки (клавиша Enter), поэтому вводить черз запятую не выйдет )))
Используем законы логики:
Дистрибутивность
Закон инверсии
Правило операции с константой
Закон де Моргана
...
ПетаБайт,ЕхаБайт,ЗеттаБайт,ЙоттаБайт
Var
i,s:integer;
a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do
begin a[i]:=random(21);
write(a[i],' ');
if a[i]<=10 then s:=s+a[i]
end;
writeln('Сумма ',s)
<span>end.</span>
<h3><u>Ответ</u>: олимп, лимон, леска.</h3>
<em>* Подробнее в приложении.</em>