<em>// PascalABC.NET 3.3, сборка 1541 от 29.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandomInteger(30,-50,50).Select(x->1.2*x).ToArray;
a.Println;
var m:=a.Average;
var b:=a.Where(x->x<m).ToArray; b.Println
end.
<u>Пример</u>
27.6 -40.8 50.4 -14.4 -46.8 9.6 7.2 -36 -32.4 -60 -30 38.4 -2.4 -55.2 -43.2 -39.6 1.2 -52.8 -38.4 34.8 -45.6 -12 15.6 -55.2 4.8 13.2 -1.2 -40.8 -33.6 -19.2
-40.8 -46.8 -36 -32.4 -60 -30 -55.2 -43.2 -39.6 -52.8 -38.4 -45.6 -55.2 -40.8 -33.6 -19.2
То, что на фото
1)6
2)0
3)0
4) 1
не на фото
5
Vark,a:integer;begink:=0;While true do beginread(a);if a=0 then break;if (a mod 8=0) and (a mod 10=6) then k+=1;end;print(k)end.
Ответ на картинке,решали уже мы это
If (x==-4)
{
y=8x+6x;
}
else
команда вывода
в случае с С#. у Pascal или Делфи надо синтаксис подправить