Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Матрицы / Задача 6 (умножить числа главной диагонали на кол-во нечетных элементов)
.txt 6) матрица, главная диагональ, умножить все члены диагонали на колво нечетных в матрице, и если не изменится - вывести сообщение (теоретические вопросы в этом билете: оперативная память и условный оператор)
program matrizi;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..15,1..15] of integer;
procedure VVOD (var a:mas;var n:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok/stolbzov');
readln(n);
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to n do read (a[i,j]);
readln;
end;
end;
procedure POISK (var a:mas;n:integer);
var i,j,max,kol:integer;
begin
kol:=0;
for i:=1 to n do
for j:=1 to n do
if (a[i,j] mod 2) = 1 then kol:=kol+1;
if kol=1 then writeln ('matriza ne izmenitsia')
else begin
for i:=1 to n do a[i,i]:=a[i,i]*kol;
end;
end;
procedure VIVOD (a:mas;n:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do write (a[i,j],' ');
writeln;
end;
end;
var M:mas;
n:integer;
begin
VVOD(M,n);
POISK(M,n);
writeln('Poluchennaya matriza');
VIVOD(M,n);
readln;
end.
program matrizi;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..15,1..15] of integer;
procedure VVOD (var a:mas;var n:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok/stolbzov');
readln(n);
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to n do read (a[i,j]);
readln;
end;
end;
procedure POISK (var a:mas;n:integer);
var i,j,max,kol:integer;
begin
kol:=0;
for i:=1 to n do
for j:=1 to n do
if (a[i,j] mod 2) = 1 then kol:=kol+1;
if kol=1 then writeln ('matriza ne izmenitsia')
else begin
for i:=1 to n do a[i,i]:=a[i,i]*kol;
end;
end;
procedure VIVOD (a:mas;n:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do write (a[i,j],' ');
writeln;
end;
end;
var M:mas;
n:integer;
begin
VVOD(M,n);
POISK(M,n);
writeln('Poluchennaya matriza');
VIVOD(M,n);
readln;
end.
Соседние файлы в папке Матрицы