Паскаль.Как удвоить значения чётных столбцов матрицы?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

Задать свой вопрос
1 ответ

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт