[Ori]

פתרון שאלה 3 :

sum:=0;
count:=0;
For I:=1 to 62 do
begin	
if (A[I] >= 100) and (A[I] <= 999) then
	begin
		sum:=sum+A[I];
		if (A[I] > 248) then
			count:=count+1;
	end;
end;
writeln(sum);
writeln(count);