Question

Помогите пожалуйста(желательно с пояснением) 1. Запишите на языке Паскаль массив С, в котором 7 элементов, заданных оператором присваивания. Вывод в столбик. 2. Создать одномерный массив C из 12 целых элементов. Числа вводит пользователь с клавиатуры. Вывести на экран массив в виде строки чисел. 3. Напишите программу, реализующую заполнение случайными числами 15 элементов массива S и вывод их на экран. Элементы массива – это целые числа из промежутка [0;40]. 4. Напишите программу, реализующую заполнение 25 числами массива B по формуле и вывод их на экран в строку по формату: целая часть – 9 позиций, дробная – 3 позиции. Формула: элемент массива равен сумме двух предыдущих элементов, деленной на номер текущего элемента, т.е. третий элемент равен (первому + второму)/3(индекс третьего) и т.д. Значения первого и второго элемента: B[1]:=3; B[2]:=6;

Answer 1

1. var
a:array[1..7] of integer;
i:Integer;
begin
//заполнение массива
a[1]:=3;
a[2]:=8;
a[3]:=2;
a[4]:=0;
a[5]:=2;
a[6]:=1;
a[7]:=7;
//вывод массива
for i:=1 to 7 do
Writeln(a[i]);
end.

2. var
c:array[1..12] of integer;
i:Integer;
begin
//заполнение массива
for i:=1 to 12 do
begin
Writeln('Введите ',i,' элемент массива');
readln(c[i]);
end;
//вывод массива
Writeln('Массив');
for i:=1 to 12 do
Write(c[i],' ');
end.

3.var
s:array[1..15] of integer;
i:Integer;
begin
//заполнение массива
for i:=1 to 15 do
s[i]:=random(40);
//вывод массива
Writeln('Массив');
for i:=1 to 15 do
Write(s[i],' ');
end.

4.var
b:array[1..25] of Real;
i:Integer;
begin
//заполнение массива
b[1]:=3;
b[2]:=6;
for i:=3 to 25 do
b[i]:=(b[i-1]+b[i-2])/i;
//вывод массива
Writeln('Массив');
for i:=1 to 25 do
Write(b[i]:9:3);
end.

Answer 2

Для каждого из заданий, предоставлю пояснения и пример кода на языке Паскаль:

1. Запись массива С с 7 элементами, заданными оператором присваивания и вывод его значений в столбик:

pascalCopy code
program Task1;
var
  C: array[1..7] of Integer;
  i: Integer;
begin
  C[1] := 10;
  C[2] := 20;
  C[3] := 30;
  C[4] := 40;
  C[5] := 50;
  C[6] := 60;
  C[7] := 70;

  for i := 1 to 7 do
    Writeln(C[i]);
end.

2. Создание одномерного массива С из 12 целых элементов с вводом чисел пользователем и выводом массива в виде строки:

pascalCopy code
program Task2;
var
  C: array[1..12] of Integer;
  i: Integer;
begin
  for i := 1 to 12 do
  begin
    Write('Введите число для элемента C[', i, ']: ');
    Readln(C[i]);
  end;

  for i := 1 to 12 do
    Write(C[i], ' ');
end.

3. Заполнение массива S случайными числами из промежутка [0;40] и вывод его на экран:

pascalCopy code
program Task3;
var
  S: array[1..15] of Integer;
  i: Integer;
begin
  Randomize;

  for i := 1 to 15 do
    S[i] := Random(41); // Random возвращает число из промежутка [0;40]

  for i := 1 to 15 do
    Writeln(S[i]);
end.

4. Заполнение массива B из 25 элементов по заданной формуле и вывод значений в строку с форматированием:

pascalCopy code
program Task4;
var
  B: array[1..25] of Real;
  i: Integer;
begin
  B[1] := 3;
  B[2] := 6;

  for i := 3 to 25 do
    B[i] := (B[i - 1] + B[i - 2]) / i;

  for i := 1 to 25 do
    Write(Format('%9.3f ', [B[i]]));
end.

Обратите внимание, что в 4-м задании используется тип данных Real для элементов массива B, чтобы сохранить дробную часть результата формулы. Функция Format используется для форматирования вывода чисел с заданным числом позиций до и после запятой. В данном случае, '%9.3f' означает, что будет зарезервировано 9 позиций для вывода числа, включая 3 знака после запятой.