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

1) Создайте массив записей, содержащий сведения об альбомах различных групп: название группы; название альбома; год выпуска; стиль. Выведите на экран все альбомы в стиле pop и rock. 2) Преобразовать одномерный массив вещественных чисел, присвоив каждому элементу квадрат его значения.
Гость
Ответ(ы) на вопрос:
Гость
Задание 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы