For i:=1 to m-1 do
for j:=i+1 to m do
<span>a[i,j]:=0;
</span>
Ответ:
23 9 3 24
влбаовоаталчлвдаььслсьвлсьальа
Begin Randomize;
writeln('Для молодежи: ',Random(100)+1);
writeln('Для взрослых: ',Random(100)+101);
writeln('Для пенсионеров: ',Random(50)+201);
<span>end.</span>
<span>Заголовки столбцов обозначаются буквами или сочетаниями букв (А, С, АВ и т. п.), заголовки строк — числами (1, 2, 3 и далее).</span>