Паскаль.Как удвоить значения чётных столбцов матрицы?program d1;type mas=array [1..5,1..5]
Паскаль.Как удвоить значения чётных столбцов матрицы?
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;
procedure Udv
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(var chislo: integer): integer;
var i,j,imin: integer;
begin
imin:=chislo;
for i:=1 to 5 do
for j:=1 to 5 do
if imingt;x[i,j] then imin:=x[i,j];
Naim:=imin
end;
Procedure Udv(var stolb: integer);
begin
stolb:=stolb*2;
end;
begin
writeln('Исходный массив');
for i:=1 to 5 do begin writeln;
for j:=1 to 5 do write(x[i,j],' ');
end;
writeln;
writeln('Перевоплощенный массив');
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do begin
if (not odd(j)) then Udv(x[i,j]);
write(x[i,j],' ');
end;
end;
writeln;
writeln('Наименьшее число: ',Naim(x[1,1]));
end.
На сто процентов готовая программка, пришлось исправлять еще и функцию Naim
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.