Код в Паскале! Срочно:((((Воткнуть число 2007 в позицию Р в одномерный

Код в Паскале! Срочно:((((
Воткнуть число 2007 в позицию Р в одномерный массив из 18 частей.

Задать свой вопрос
1 ответ
Program aliona;
const n=18;
var a:array[1..n] of integer;
p,i,l:integer;
begin
writeln('vvedite massiv=');
for i:= 1 to n do
readln(a[i]);
writeln ('vvedite p=');
readln(p);
l:=2007;
for i:=1 to n do
a[p]:=l;
writeln('novaia');
for i:= 1 to n do
writeln (a[ i ]);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт