Question

Алгоритмы Паскаль (массив) дам 15 б Сформулировать и вывести на экран такой массив: (5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90)

Answer 1

begin

 var a := SeqWhile(5, x -> x + 5, x -> x <= 90).ToArray;

 a.Println;

end.

Answer 2

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

pascalCopy code
program PascalArray;
var
  arr: array[1..15] of Integer;
  i, value: Integer;
begin
  value := 5; // Начальное значение
  for i := 1 to 15 do
  begin
    arr[i] := value;
    value := value + 5; // Увеличиваем значение на 5 для следующего элемента
  end;

  // Выводим массив на экран
  for i := 1 to 15 do
    Write(arr[i], ' ');

  // Ожидаем нажатия клавиши перед завершением программы
  Readln;
end.

Этот код создает массив arr с 15 элементами и инициализирует его заданными значениями (5, 10, 15, 20, и так далее, с шагом 5). Затем он выводит этот массив на экран с пробелами между элементами. После вывода массива программа ожидает нажатия клавиши, прежде чем завершить свою работу.