עזרה עם כמה שאלות בפסקל

[TUCG]

אודה לכם אם תוכלו לעזור לי בכמה שאלות פשוטות בהתפלגות במערכים חד-ממדיים בפסקל. אם יש לכם זמן לזה...

1. א. כתוב תוכנית אשר תייצר 50 מספרים אקראיים שלמים בתחום בין 1 ל-6 (כולל). התוכנית תספור ותדפיס כמה פעמים הופיע המספר 6.

ב. הסבר במילים מה עליך לשנות בתוכנית שכתבת בסעיף א' כדי שהתוכנית תספור כמה פעמים מופיע כל אחד מהמספרים השלמים 1 עד 6.

2. בתחרות זמר מקומית משתתפים 10 שירים ממוספרים מ-1 עד 10. כל אחד מן הצופים מוסר בסיום התחרות פתק, ועליו כתוב מספר השיר שאותו בחר. מספר הצופים אינו ידוע. כתוב תוכנית הקולטת את המספר הרשום על פתקי הבחירה, ומחשבת עבור כל שיר את מספר הקולות שצבר. ספירת הקולות תסתיים עם קליטת המספר אפס. התוכנית תדפיס את מספרי השירים שצברו יותר מ-100 קולות.

3. כתוב תוכנית הקולטת 40 ציונים של תלמידים (במספרים שלמים) בתחום 1-100, ומדפיסה את הציון השכיח (נפוץ).

הערה: אם יש יותר משכיח אחד, התוכנית תדפיס רק אחד.

4. כתוב תוכנית שתדמה טלת קובייה 100 פעמים. התוכנית תדפיס את התוצאה של הטלת הקובייה שמספר המופעים שלה היה הגדול ביותר. אם יש יותר מתוצאה אחת כזו, תדפיס התוכנית את כולן.

[parker]

לגבי 1)

for i:=1 to 50 do

begin

num:=random(6)+1;

if num=6 then inc(counter)

end;

writeln(counter);

ב(

משתמשים במערך מונים מ1-50, מגדילים את המקום במערך שלו מתאים num באחד, ואז עושים לולאה שמראה את הערכים של כל המערך

[TUCG]

הריני לציין שכעת המצב אינו דחוף כך שאתם יכולים להרגיש חופשי לעזור לי עם שאר הבעיות לאורך כל השבוע הזה. בהצלחה !

[Component]

3:

;Var GradeArr = Array [1..100] of integer

I: Integer;

Y: integer;

Begin

For I := 1 to 100 do GradeArr := 0;

For I := 1 to 40 do Begin

readln (Y);

GradeArr[Y] := GradeArr[Y] + 1;

End;

Y := 0;

For I := 1 to Y do if GradeArr > Y then Y := GradeArr;

writeln (Y)

4:

Uses crt;

Var DropArr = Array [1..6] of integer

I: Integer;

max: integer;

Begin

randomize

For I := 1 to 100 do DropArr := 0;

For I := 1 to 100 do Begin

inc (DropArr[Random(6) + 1]);

Max := 0

For I := 1 to 6 do if DropArr > Max then Max := DropArr;

For I := to 6 do if DropArr = Max then writeln (I);