Если имеется в виду произведение наибольших в каждой строке элементов, то тогда так: var i,j,p:integer; max:array[1..5]of integer; a:array[1..5,1..5]of integer; begin p:=1; for i:=1 to 5 do for j:=1 to 5 do a[i,j]:=random(-10,10); a[1,1]:=random(-10,-1); for i:=1 to 5 do begin for j:=1 to 5 do begin write(a[i,j]:4); if a[i,j]>max[i] then max[i]:=a[i,j]; end; p:=p*max[i]; writeln; end; writeln('P=',p); end.
Aurora 3D Text and Logo Maker - это продвинутый, мощный дизайнерский инструмент для создания уникального 3D текста, кнопок и логотипов, имеет достаточно большое количество шаблонов и готовых форм, которые можно использовать для создания собственного текста. Aurora 3D Text and Logo Maker имеет комплект эффектов, анимаций, текстур, с которых можно украсить 3D логотип или текст. При создании трёхмерного логотипа можно отрегулировать уровень света, добавить теней, рельеф, выбирать различные варианты искривления, выравнивания, освещения, наложения объектов и т. д. Допускается импорт шрифтов и SVG-графики. Итоговый вариант выводится в виде PNG, TGA, TIFF, JPG, BMP, XPM и PPM-файлов.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 uses GraphABC;
procedure OutLightGreen(n:integer); begin var OldColor:=FontColor; SetFontColor(clLightGreen); Write(n:5); SetFontColor(OldColor) end;
begin var a:=MatrixRandom(10,14,-180,320); var m:=ReadInteger('n='); Writeln; SetFontColor(clWhite); Font.Style:=fsBold; Font.Name:='Courier'; Brush.Color:=clBlack; Window.Clear(clBlack); var k:=0; for var i:=0 to 9 do begin for var j:=0 to 13 do if a[i,j]>m then begin Inc(k); OutLightGreen(a[i,j]) end else Write(a[i,j]:5); Writeln end; SetFontColor(clRed); Writeln('Количество элементов равно ',k) end.
![Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем](/tpl/images/0548/3216/24d2a.jpg)
![Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем](/tpl/images/0548/3216/d74f6.jpg)
var
i,j,p:integer;
max:array[1..5]of integer;
a:array[1..5,1..5]of integer;
begin
p:=1;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(-10,10);
a[1,1]:=random(-10,-1);
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(a[i,j]:4);
if a[i,j]>max[i] then max[i]:=a[i,j];
end;
p:=p*max[i];
writeln;
end;
writeln('P=',p);
end.