const n = 5;
m = 5;
var
a: array[1..n, 1..m] of integer;
i, j, tmp, s_s: integer;
magic: boolean;
begin
magic := true;
for i := 1 to n do begin
for j := 1 to m do begin
a[i, j] := random(50);
write(a[i, j]:4);
if(i = 1) then s_s := s_s + a[i, j];
if(j mod m = 0) then writeln;
end;
end;
for i := 2 to n do begin
tmp := 0;
for j := 1 to m do begin
tmp := tmp + a[i, j];
end;
if(tmp <> s_s) then begin
magic := false;
break;
end;
end;
for i := 1 to n do begin
tmp := 0;
for j := 1 to m do begin
tmp := tmp + a[j, i];
end;
if(tmp <> s_s) then begin
magic := false;
break;
end;
end;
if(magic) then writeln('Матрица является магическим квадратом') else
writeln('Матрица не является магическим квадратом');
end.
Кантата -крупное вокально-инструментальное произведение, обычно для солистов, хора и оркестра. Встречаются Контата торжественного, радостного, лирического, скорбного, повествовательного характера; подразделяются на светские и духовные (религиозные). Обычно К. состоит из оркестрового вступления, арий, речитативов и хоров. К. близка к оратории, отличается от неё меньшими масштабами, отсутствием драматической разработки сюжета, преимущественно камерным характером.
Рапсо́дия — инструментальное или вокальное произведение, написанное в свободном, импровизационном, эпическом стиле. Для рапсодии характерно чередование разнохарактерных эпизодов на народно-песенном материале. Оно словно воссоздаёт исполнение древнегреческого певца-рапсода.
Сюита -одна из основных циклических форм инструментальной музыки. Состоит из нескольких самостоятельных, обычно контрастирующих частей, объединённых общим художественным замыслом. В отличие от сонаты и симфонии, С. свойственны большая самостоятельность частей, не столь строгая закономерность их соотношения, а также более непосредственная связь с песней, танцем, применение картинной изобразительности.
