Измени вот этот фрагмент следующим образом: writeln('Полученный массив'); for j:=1 to m do begin if a[5,j] mod 2=1 then begin p:=p*a[5,j]; inc(k); end; end; writeln('Произведение = ',p); writeln('Количество =',k);
Ответ. Строительство Софийского собора, план:
1) разрушение церквей Константинополя в ходе восстания «Ника» в 532 году;
2) в этом же 532 году Юстиниан приглашает лучших архитекторов Исидора Милетского и Анфимия Тралльского;
3) выбор названия для храма;
4) общий план храма (квадрат с куполом в центре);
5) размеры и высота храма;
6) материалы, которые использовались при строительстве (особенно материалы колонн);
7) украшение храма фреска, мозаика, золотом и дорогими сортами камня;
8) купол – его площадь, тонкие опоры (слепящее солнце не давало их увидеть и верующим казалось, что купол подвешен на золотой цепи, которая спускается с неба);
9) математические знания, которые были нужны, чтобы построить храм и особенно купол.
Ответ. Строительство Софийского собора, план:
1) разрушение церквей Константинополя в ходе восстания «Ника» в 532 году;
2) в этом же 532 году Юстиниан приглашает лучших архитекторов Исидора Милетского и Анфимия Тралльского;
3) выбор названия для храма;
4) общий план храма (квадрат с куполом в центре);
5) размеры и высота храма;
6) материалы, которые использовались при строительстве (особенно материалы колонн);
7) украшение храма фреска, мозаика, золотом и дорогими сортами камня;
8) купол – его площадь, тонкие опоры (слепящее солнце не давало их увидеть и верующим казалось, что купол подвешен на золотой цепи, которая спускается с неба);
9) математические знания, которые были нужны, чтобы построить храм и особенно купол.
for i:=1 to n do begin
if a[5,j] mod 2=1 then p:=p*a[5,j];
в цикле счетчик I, а массив проверяет по j