Question

Пожалуйста, напишите программы в паскаль: 1) Используя генератор случайных чисел, заполнить массив размерностью 8 элементов числами из интервала [-10,+50]. Вывести список элементов массива2) Заполнить массив размерностью 4 с клавиатуры целыми числами . Вывести список элементов массива3) Заполнить массив размерностью 18 Ввод с помощью формулы А(i)=i*i+4 . Вывести список элементов массива

Answer 1

Ответ:

#1

begin

   ArrRandom(8, -10, 50).Println;

end.

#2

begin

  var A := ReadArrInteger(4);

  A.Println;

end.

#3

begin  

  var A := SeqGen(19, p-> p*p + 4);

  A.Println;

end.

Объяснение:

Answer 2

Конечно, вот три программы на Pascal, реализующие ваши задачи:

1. Использование генератора случайных чисел для заполнения массива:

pascalCopy code
program RandomArray;
var
  arr: array[1..8] of Integer;
  i: Integer;
begin
  Randomize; // Инициализация генератора случайных чисел
  for i := 1 to 8 do
    arr[i] := Random(61) - 10; // Генерация чисел в интервале [-10, +50]
    
  writeln('Массив случайных чисел:');
  for i := 1 to 8 do
    write(arr[i], ' ');
  writeln;
end.

2. Заполнение массива с клавиатуры:

pascalCopy code
program KeyboardArray;
var
  arr: array[1..4] of Integer;
  i: Integer;
begin
  writeln('Введите 4 целых числа:');
  for i := 1 to 4 do
    readln(arr[i]);
    
  writeln('Массив введенных чисел:');
  for i := 1 to 4 do
    write(arr[i], ' ');
  writeln;
end.

3. Заполнение массива с использованием формулы:

pascalCopy code
program FormulaArray;
var
  arr: array[1..18] of Integer;
  i: Integer;
begin
  for i := 1 to 18 do
    arr[i] := i * i + 4;
    
  writeln('Массив, заполненный по формуле:');
  for i := 1 to 18 do
    write(arr[i], ' ');
  writeln;
end.

Вы можете скопировать каждую из этих программ в среду Pascal (например, Lazarus) и выполнить, чтобы увидеть результаты.