Question

Паскаль абс нет 1. Задайте массив на 15 элементов, заполните его случайными целыми числами из интервала от-50 до 50 и выведите его на экран в виде: а[1] = -24 a[2] = 7 ... f[15] = 45 2. Задайте три массива на 20 элементов, заполните первые два случайными целыми числами из интервала от-10 до 10, а третий массив заполните суммами соответствующих элементов первых двух массивом. Выведите эти массивы в строчку друг под другом: 3 5 -4 9 -3 2 -7 9 0 8 5 -2 5 9 5 3*. Задайте массив на 20 элементов заполненый по следующему правилу: два первых элемента равны 1, а каждый следующий равен сумме двух предыдущих). Вывести его в строчку.

Answer 1

Задание 1.

program z1;

var a: array[0..14] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 14 do a[i] := Random(101) - 50;

   for i:=0 to 14 do write(a[i], ' ');

end.

Задание 2.

program z2;

var a, b, c: array[0..19] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 19 do begin

       a[i] := Random(21) - 10;

       b[i] := Random(21) - 10;

       c[i] := a[i] + b[i];

   end;

   for i:=0 to 19 do write(a[i], ' ');

   writeln();

   for i:=0 to 19 do write(b[i], ' ');

   writeln();

   for i:=0 to 19 do write(c[i], ' ');

end.

Задание 3.

program z3;

var a: array[0..19] of integer;

i: integer;

begin

   a[0] := 1;

   a[1] := 1;

   for i:=2 to 19 do begin

       a[i] := a[i-1] + a[i-2];

   end;

   for i:=0 to 19 do write(a[i], ' ');

end.

Answer 2

Конечно, вот примеры кода на языке программирования Pascal для выполнения ваших задач:

1. Создание и вывод массива из 15 случайных целых чисел:

pascalCopy code
program Task1;
var
  a: array[1..15] of integer;
  i: integer;
begin
  randomize;
  for i := 1 to 15 do
    a[i] := random(101) - 50; // Генерируем случайное число в интервале [-50, 50]
  
  for i := 1 to 15 do
    writeln('a[', i, '] = ', a[i]);
end.

2. Создание и вывод трех массивов:

pascalCopy code
program Task2;
var
  a, b, c: array[1..20] of integer;
  i: integer;
begin
  randomize;
  
  // Заполняем первые два массива случайными числами от -10 до 10
  for i := 1 to 20 do
  begin
    a[i] := random(21) - 10;
    b[i] := random(21) - 10;
  end;

  // Заполняем третий массив суммами соответствующих элементов первых двух массивов
  for i := 1 to 20 do
    c[i] := a[i] + b[i];
  
  // Выводим все три массива
  writeln('Массив a:');
  for i := 1 to 20 do
    write(a[i], ' ');
  writeln;

  writeln('Массив b:');
  for i := 1 to 20 do
    write(b[i], ' ');
  writeln;

  writeln('Массив c:');
  for i := 1 to 20 do
    write(c[i], ' ');
  writeln;
end.

3. Создание и вывод массива по правилу последовательности чисел Фибоначчи:

pascalCopy code
program Task3;
var
  fib: array[1..20] of integer;
  i: integer;
begin
  // Инициализируем первые два элемента
  fib[1] := 1;
  fib[2] := 1;

  // Вычисляем последующие элементы
  for i := 3 to 20 do
    fib[i] := fib[i-1] + fib[i-2];

  // Выводим массив
  for i := 1 to 20 do
    write(fib[i], ' ');
  writeln;
end.

Эти программы выполняют задачи, описанные в вашем вопросе.