Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.