א.בנה מערך בגודל N(בחר N=30) ובו מספרים שלמים .

ב.כתוב פרוצדורה בשם RAND_KELET המקבלת כפרמטר מערך בגודל N של מספרים שלמים ומציבה לתוכו מספרים בתחום 36 עד 46.

ג.כתוב פרוצדורה בשם PELET המדפיסה את אברי המערך בשורה אחת .

ד.זמן את 2הפרוצדורות מהתוכנית הראשית ובדוק שאכן התקבלו הנתונים הנכונים .

בבקשה תעזרו לי כי אני ממש חלש בפרוצדורות ובמערכים .

עשיתי לך...

תהנה...

Program Para;
Uses crt;
Const
     n=30;
type
    Viper=array[1..n] of integer;
procedure rand_kelet(var non:viper);
          var i:integer;
              begin
                   for i:=1 to n do
                        non[i]:=36 + random(11);
              end;
procedure pelet(var non:viper);
          var i:integer;
              begin
                   for i:=1 to n do
                       write(non[i]:5);
              end;
var Memz:viper;
    begin
         clrscr;
         randomize;
         rand_kelet(memz);
         pelet(memz);
end.

תודה