Question

1.pas) Заполнить массив из 4 элементов натуральными числами. Вывести второй элемент массива. (1 способ) 2.pas) Заполнить массив из 5 элементов натуральными числами от 17 до 22. Вывести все элементы массива. (2 способ) 3.pas) Заполнить массив из 9 элементов вещественными числами по запросу пользователя. Вывести все элементы массива. (3 способ) 4.pas) Заполнить массив из 8 элементов квадратами номеров элементов. Вывести все элементы массива. (4 способ) 5.pas) Заполнить массив из 11 элементов четными натуральными числами. Выводить с пояснениями по образцу: 1 элемент = 2 и т.д.(использовать цикл для заполнения и вывода массива)

Answer 1

Ответ:

Если я все правильно понял

Объяснение:

Answer 2

Конечно, вот примеры кода на языке Pascal (Delphi) для каждой задачи:

1. Заполнение массива из 4 элементов натуральными числами и вывод второго элемента:

pascalCopy code
program FirstTask;
var
  arr: array[1..4] of Integer;
begin
  arr[1] := 5; // Замените этот код на заполнение числами, как вам нужно
  arr[2] := 10;
  arr[3] := 15;
  arr[4] := 20;
  
  writeln('Второй элемент массива: ', arr[2]);
end.

2. Заполнение массива из 5 элементов натуральными числами от 17 до 22 и вывод всех элементов:

pascalCopy code
program SecondTask;
var
  arr: array[1..5] of Integer;
  i: Integer;
begin
  for i := 1 to 5 do
    arr[i] := 17 + i - 1;
  
  writeln('Элементы массива:');
  for i := 1 to 5 do
    writeln(arr[i]);
end.

3. Заполнение массива из 9 элементов вещественными числами по запросу пользователя и вывод всех элементов:

pascalCopy code
program ThirdTask;
var
  arr: array[1..9] of Real;
  i: Integer;
begin
  for i := 1 to 9 do
  begin
    write('Введите элемент ', i, ': ');
    readln(arr[i]);
  end;
  
  writeln('Элементы массива:');
  for i := 1 to 9 do
    writeln(arr[i]);
end.

4. Заполнение массива из 8 элементов квадратами номеров элементов и вывод всех элементов:

pascalCopy code
program FourthTask;
var
  arr: array[1..8] of Integer;
  i: Integer;
begin
  for i := 1 to 8 do
    arr[i] := i * i;
  
  writeln('Элементы массива:');
  for i := 1 to 8 do
    writeln(arr[i]);
end.

5. Заполнение массива из 11 элементов четными натуральными числами с выводом пояснений:

pascalCopy code
program FifthTask;
var
  arr: array[1..11] of Integer;
  i: Integer;
begin
  for i := 1 to 11 do
    arr[i] := i * 2;
  
  writeln('Элементы массива с пояснениями:');
  for i := 1 to 11 do
    writeln(i, ' элемент = ', arr[i]);
end.

Обратите внимание, что в коде выше некоторые значения могут быть изменены в соответствии с вашими требованиями.