Необходима помощь в доработке

[kill4itski]

Необходима помощь в доработке

Задача: Дан одномерный массив L[10], элементы которого вводятся с клавиатуры. В данном массиве значение каждого элеиента, имеющего чётный порядковый номер, возвести в квадрат. На экран вывести исходный и изменённый массив.

Вот, что я смог сделать:
Program massiv
Const N=10;
var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
for i:=1 to n do
begin
writeln('vvedite znacenie',i,'-go elementa');
read(L);
begin
if (i mod 2<>1) then x:=sqr(L) else x:=L;
writeln('X[',I,']=',X:6:2);
end;
end;
end.

Мне нужно ещё, чтобы выводился исходный массив, ведь тут выводится только изменённый. Пару варинантов пробовал - не получилось. Я в паскале совсем начинающий и программу делал не сам, хотя дорабатывал её именно я. Но не до конца. Помогите, пожалуйста

 

[ww01031977]

Можно даже поблагодарить.
Program massiv;
uses crt;
Const N=10;
var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
clrscr;
for i:=1 to n do
begin
write('L[',i,']='); readln(L);
end;
for i:=1 to n do
if i mod 2=0 then x:=sqr(L) else x:=L;
writeln(' masiv L');
for i:=1 to n do
write(L:6:2);
writeln; writeln(' masiv X');
for i:=1 to n do
write(X:6:2); writeln;
end.

 

[Vladimir_S]

Задача: Дан одномерный массив L[10], элементы которого вводятся с клавиатуры. В данном массиве значение каждого элеиента, имеющего чётный порядковый номер, возвести в квадрат. На экран вывести исходный и изменённый массив.

Вот, что я смог сделать:
Program massiv
Const N=10;
var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
for i:=1 to n do
begin
writeln('vvedite znacenie',i,'-go elementa');
read(L);
begin
if (i mod 2<>1) then x:=sqr(L) else x:=L;
writeln('X[',I,']=',X:6:2);
end;
end;
end.

Мне нужно ещё, чтобы выводился исходный массив, ведь тут выводится только изменённый. Пару варинантов пробовал - не получилось. Я в паскале совсем начинающий и программу делал не сам, хотя дорабатывал её именно я. Но не до конца. Помогите, пожалуйста

Например, так:

Program massiv;
Const N=10;
var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
for i:=1 to n do
begin
Write('vvedite znacenie',i,'-go elementa ');
readLn(L);
end;
for i:=1 to n do
if (i mod 2<>1) then x:=sqr(L) else x:=L;
WriteLn('Array L:');
for i:=1 to n do
Write(L:7:2);
WriteLn;
WriteLn('Array X:');
for i:=1 to n do
Write(X:7:2);
WriteLn;
ReadLn;
end.

 

[Vladimir_S]

Забавно. Обе программы, моя и ww01031977, практически идентичны. Ну надо же!

 

[ww01031977]

Забавно. Обе программы, моя и ww01031977, практически идентичны. Ну надо же!

Она очень проста. Школьный курс. По-другому и нет смысла делать.

 

[kill4itski]

Большое спасибо!