ПОМОГИТЕ НАЙТИ ОШИБКУ
var n,x: integer;
y: array [1..10] of integer;
begin
readln (n);
writeln ('число элементов n=',n);
for x:=1 to n do;
y(x):= x*x;
writeln ;x;' '.y(x);
end.
var n,x: integer;
y: array [1..10] of integer;
begin
readln (n);
writeln ('число элементов n=',n);
for x:=1 to n do;
y(x):= x*x;
writeln ;x;' '.y(x);
end.
More Questions From This User See All
Answers & Comments
Последние строки должны быть такими
y[x]:= x*x;
writeln (x,' ',y[x]);
end.