Даны 2 массива чисел Х =(х1,х2,...,хn) и Y=(y1,y2,...yn). Найти массив Z, у которого каждый элемент zi равен xi*yi.
на Паскале
Program Prim_43;
Const M = 100;
Var I,N: Integer
X,Y,Z: Array [1.. M] of Integer;
Begin
Read (N);
For I:=1 To N Do
Read (X[I],Y[I]);
Writeln (X[I],Y[I]);
For I:=1 To N Do
Z[i]:= X[i]*Y[i];
Writeln ('Z = ', Z[i]);
End.
Скажите правильно ли я решила? Проверить негде (

1)Нет проверки, что 0<N<=M.
2)Забыли после VAR I,N:Integer.
3)В цикле BEGIN и END забыли .
4)http://www.onlinecompiler.net/pascal.html есть очень удобный онлайн компилятор)).

--------------------------
у меня так получилось

Program Prim_43;
Const M = 100;
Var I,N: Integer;
X,Y,Z: Array [1.. M] of Integer;
Begin
I:=0;
write('Введите кол-во эл-тов массивов: ');
Readln (N);
writeln('введите массив X');
For I:=1 To N Do
begin
write('X[',I,']: ');
Readln (X[I]);
end;
writeln('введите массив Y');
For I:=1 To N Do
begin
write('Y[',I,']: ');
Readln (Y[I]);
end;
Write ('Z = ');
For I:=1 To N-1 Do
begin
Z[I]:= X[I]*Y[I];
Write (Z[I],', ');
end;
I:=I+1;
Z[I]:= X[I]*Y[I];
Write (Z[I]);
Readln;
end.

А на Бэйсике? Уменя так
10 Input N
20 Dim X(N),Y(N),Z(N)
30 For I=1to N
40 Input X(I),Y(I)
50 Print X(I),Y(I)
60 Next I
70 For I=1 to N
80 Z(i)=X(I)*Y(I)
90 Print ("Z=";Z(I))
100 End.