Question

1) Создайте массив записей, содержащий сведения об альбомах различных групп:
название группы;
название альбома;
год выпуска;
стиль.
Выведите на экран все альбомы в стиле pop и rock.

2) Преобразовать одномерный массив вещественных чисел, присвоив каждому элементу квадрат его значения.

Answer 1

Задание 1 во вложении.

Задание2.

const
  m = 20;{максимальное количество элементов}

var
  a: array[1..m] of real;
  i, n: integer;

begin
  Write('Введите количество элементов (от 1 до 20): ');
  Readln(n);
  Writeln('Вводите через пробел элементы массива');
  for i := 1 to n do
  begin
    Read(a[i]);
    a[i] := sqr(a[i])
  end;
  Writeln('Результирующий массив:');
  for i := 1 to n do Write(a[i]:0:4, ' ');
  Writeln
end.

Тестовое решение:

Введите количество элементов (от 1 до 20): 5
Вводите через пробел элементы массива
1.3 2.7 -4 4.23 0
Результирующий массив:
1.6900 7.2900 16.0000 17.8929 0.0000

533b0422f455c47a4b2cfb7f6d1f11f7.txt