1) Создайте массив записей, содержащий сведения об альбомах различных групп: название группы; название альбома; год выпуска; стиль. Выведите на экран все альбомы в стиле pop и rock. 2) Преобразовать одномерный массив вещественных чисел, присвоив каждому элементу квадрат его значения.
Это на чем писать?
паскаль вроде
ВРОДЕ??? Т.е. я, к примеру, буду это писать полчаса, а потом Вы напишете "Извините, я ошиблась, Бейсик (Aceess, C++, Excel и тп)" ?
Пасибочки за задания=)
"Пасибочки" кнопочкой выражаются, а звездочками рядом - их размер.
Задание 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