Question

Срочно в Паскаль.ABC.Net. Задание:Пользователь вводит число n. Нужно составить массив, в котором записаны n первых четных чисел.Если пользователь ввел 4, то нужно составить массив, в котором числа 2 4 6 8​

Answer 1

Ответ:

program even_numb_in_the_array;

var i,j,n,m:integer;

a:array [1..10000] of integer;

k:real;

label 10;

begin

10: j:=0;

Writeln ('введите любое целое число число до 100');

 Read (n);

 for i:=1 to 10000 do

 begin

   a[i]:=i;  

   k:=i mod 2;

   if k=0 then

     begin

     j:=j+1;

   a[j]:=a[i];

end;

 end;

for j:=1 to  n do

Write (a[j],' ');

Writeln();

Writeln ('Будете работать с программой снова 1 - да, любая цифра - нет');

Read (m);

if m=1 then goto 10;

end.

Объяснение:

Answer 2

Вот пример кода на языке Pascal, который позволит вам создать массив из первых n четных чисел:

pascalCopy code
program EvenNumbersArray;
var
  n, i: integer;
  evenNumbers: array of integer;
begin
  Write('Введите число n: ');
  Readln(n);
  
  SetLength(evenNumbers, n); // Устанавливаем длину массива

  for i := 1 to n do
  begin
    evenNumbers[i - 1] := i * 2; // Заполняем массив четными числами
  end;

  // Выводим массив
  Write('Массив из первых ', n, ' четных чисел: ');
  for i := 0 to n - 1 do
  begin
    Write(evenNumbers[i], ' ');
  end;
  Writeln;
end.

Этот код предлагает пользователю ввести число n, создает массив evenNumbers и заполняет его первыми n четными числами, а затем выводит полученный массив.