Uses crt;
const n=10;
var a:array[1..n] of integer;
s,i,min,k:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<min then begin min:=a[i]; k:=i; end;
end;
s:=0;
for i:=k+1 to n do
s:=s+a[i];
writeln(s);
end.
Мне не совсем понятна формулировка вопроса: если там имеется в виду, что Красный и Зеленый стоит на максимуме, а Синий на минимуме, то будет Желтый. То есть в реальности это надо было бы записать как RGB (255,255,0)
А если там действительно RGB (1,1,0) как сказано в задачке, то оно даже из черного не вылезет :) Но, скорее всего, просто запись цвета в задачке нестандартной манере сделана.
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.