Question

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

Answer 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.

Answer 2

Конечно, вот пример кода на Паскале, который вставляет число 2007 в позицию Р (где Р - это переменная, содержащая индекс массива) в одномерном массиве из 18 элементов:

cssCopy code
program insert_array_element;

var
  arr: array[1..18] of integer; {объявляем массив из 18 элементов}
  P: integer; {переменная для индекса массива}

begin
  P := 5; {присваиваем переменной Р значение 5}
  arr[P] := 2007; {вставляем число 2007 в позицию Р}
end.

Обратите внимание, что в данном примере мы присваиваем переменной P значение 5, чтобы вставить число 2007 в пятую позицию массива. Если вам нужно вставить число в другую позицию, просто измените значение переменной P на нужное число.