אני רוצה להשוות שני מערכים A וB ולבדוק אם B1 שווה ל A זאת אומר (A1 =B1 או A2 או A3 או A4) ואז ל B2 וכו' לפי גודל המערך.

ואז לבדוק אם A1=B1 ואם A2 =B2 וכו'.

לפי גודל המערך שנקבע על ידי המשתמש אני לא מצליח אם מישהו יודע בקשה להגיב

תודה מראש.

(בפסקל!)

for i:=1 to length(B) do

for j:=1 to length(A) do

if a[j]=b then...etc.

???

for i:=1 to length(B) do

for j:=1 to length(A) do

if a[j]=b then...etc.

???

אשמח לקבל הסבר במילים על מה שעשית

נ.ב.

שאני מכניס את זה לתוכנית זה כותב STRING expression EXPECTED

התכנית אמורה ליהיות משחק שבו המחשב יוצר תבנית של מספרים והמשתמש צריך לנחש איזה תבנית כל פעם המשתמש מכניס תבנית משלו והמחשב כותב לו כמה מספרים הןא צדק (מספרים שנמצאים בתבנית של המחשב) וכמה היו במקום הנכון

הוספתי את הקוד שבניתי עד עכשיו אולי מישהו יודע איך לפתור את הבעיה שלי (ההודעה הראשונה)

program atlantic;
uses crt;

var
a:array[1..4] of real;
b:array[1..4] of real;
i,x,j:integer;

begin
clrscr;


randomize;
for i:=1 to 4 do begin
a[i]:=random(10);
write(a[i]);
end;
for i:=1 to 4 do
read(b[i]);

read;
end.