Untitled

mail@pastecode.io avatar
unknown
plain_text
a month ago
1.2 kB
1
Indexable
Never
var
  A: array[1..10] of Integer; // пример массива размером 10
  i: Integer;
begin
  // Заполнение массива A нулями
  for i := 1 to 10 do
  begin
    A[i] := 0;
  end;
end.

вторая часть
var
  A: array[1..10] of Integer; // пример массива размером 10
  i, N: Integer;
begin
  // Ввод значения N с клавиатуры
  Write('Введите количество элементов N: ');
  Readln(N);

  // Заполнение массива A первыми N натуральными числами
  for i := 1 to N do
  begin
    A[i] := i;
  end;
end.

третья часть
var
  A: array[1..10] of Integer; // пример массива размером 10
  i, N, X: Integer;
begin
  // Ввод значений N и X с клавиатуры
  Write('Введите количество элементов N: ');
  Readln(N);
  Write('Введите начальное значение X: ');
  Readln(X);

  // Заполнение массива A первыми N натуральными числами, начиная с X
  for i := 1 to N do
  begin
    A[i] := X + i - 1;
  end;
end.
Leave a Comment