View Single Post
ישן 17-05-06, 15:01   # 36
Ori
תודה על תרומתך :)
עסק רשום [?]
 
מיני פרופיל
תאריך הצטרפות: Oct 2005
הודעות: 1,674

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);
__________________
בברכה,
אורי אהרונוביץ
Admin AT uptime.co.il

  Reply With Quote