На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
<span>end.</span>
1.А
2.256
3. Группа цвета = Изменение цветов
4.Синий
Begin
for i:=1 to 30 do
a[i]:=random(50)-20;
for i:=1 to 30 do
if a[i]<0 then sum:=sum+a[i];
writeln(sum);
readln(k);
for i:=1 to 30 do
if (a[i]>0) and (a[i]<=k) then kol:=kol+1;
writeln(kol);
end.