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
Не нашли ответ?
Похожие вопросы