НАЙТИ ОШИБКУvar n,x: integer; y: array [1..10] - вопрос №11010732000 от vladislavbelenp08na4 20.03.2023 17:37

Question

Информатика: НАЙТИ ОШИБКУ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.

vladislavbelenp08na4 · Answer

Последние строки должны быть такими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.

НАЙТИ ОШИБКУ
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.