<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-5,55); a.Println;
var max:=a.Where(t->t.IsEven).Max;
var imax:=a.IndexesOf(t->t=max).FirstOrDefault;
Writeln('1: a[',imax+1,']=',max);
Writeln('2: ',a.Where(t->t mod 3=0).Sum);
Writeln('3: ',a.Where(t->t<0).Count);
end.
<u>Пример</u>
n= 20
-4 45 4 -5 38 1 42 52 53 17 42 22 3 11 28 5 14 28 35 22
1: a[8]=52
2: 132
3: 2
Var x,y:integer;
begin;
readln(x);
if x>0 then
begin;
y:=2*sqr(x)+5;
write(y);
end
else
begin;
y:=7*sqr(x)-5;
write(y);
end;
end.
N=
N - палитра (количество цветов)
i - кол-во бит на пиксель. По задаче - 3 бита.
N=
N=8