Question

Помогите, пожалуйста! Составить программу на языке Паскаль, которая создает массив из 10 элементов целочисленного типа и заполняет массив первыми 10 четными числами (начиная с числа 2). Программа должна вывести значения последних 3 элементов массива.

Answer 1

Const last = 3;//сколько последних
const count = 10;//всего чисел
var
arr:array [1..count] of Integer;
i,a:Integer;
begin
while i<count do
begin
a+=1;
if a mod 2 = 0 then
begin
i+=1;
arr[i]:= a;
end;
end;
for i:= 1 to last do
WriteLn(arr[count-last+i]);
end.

Answer 2

Конечно, вот программа на языке Паскаль, которая создает массив из 10 элементов и заполняет его первыми 10 четными числами, начиная с числа 2. Затем она выводит значения последних 3 элементов массива:

pascalCopy code
program EvenNumbersArray;

const
  ARRAY_SIZE = 10;

var
  evenNumbersArray: array[1..ARRAY_SIZE] of Integer;
  i: Integer;

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

  // Выводим значения последних 3 элементов массива
  writeln('Последние 3 элемента массива:');
  for i := ARRAY_SIZE - 2 to ARRAY_SIZE do
  begin
    writeln(evenNumbersArray[i]);
  end;
end.

Программа создает массив evenNumbersArray размером 10 и заполняет его значениями первых 10 четных чисел (2, 4, 6, ..., 20). Затем она выводит последние 3 элемента массива, то есть числа 16, 18 и 20.