Размещено 5 лет назад по предмету
Информатика
от Prussiay
Паскаль.Как удвоить значения чётных столбцов матрицы?
program d1;
type mas=array [1..5,1..5] of integer;
const
x:mas=((1,2,3,4,5),(5,4,3,2,1),(6,7,8,9,10),(11,12,13,14,15),(10,9,8,7,6));
var q,a: mas;
i,j:integer;
function Naim(const x:mas): integer;
var i,imin: integer;
begin
imin:=1;
for i:=1 to 5 do
if x[i,i]
Naim:=x[imin,imin];
end;