ПОМОГИТЕ ПОЖАЛУЙСТА, ОПИСАТЬ ПОСЛЕДОВАТЕЛЬНО, ЧТО ВЫПОЛНЯЕТ ДАННАЯ ПРОГРАММА, ПОДРОБНО.
const m=5;
n=5;
var r:array[1..m,1..n] of integer;
i,j,c,d,k:integer;
l:boolean;
begin
randomize;
writeln('Исходная матрица: ');
for i:=1 to m do
begin
for j:=1 to n do
begin
r[i,j]:=random(15);
write(r[i,j]:4);
end;
writeln;
end;
write('c= ');
read(c);
write('d= ');
read(d);
writeln('Строки, в которых есть число:',c);
k:=0;
for i:=1 to m do
begin
l:=false;
j:=1;
while(j<=n)and not l do
if r[i,j]=c then l:=true
else j:=j+1;
if l then
begin
k:=1;
write(i,' ');
for j:=1 to n do r[i,j]:=r[i,j]*d
end;
end;
writeln;
if k=0 then writeln('В матрице нет числа: ',c)
else
begin
writeln('Преобразованная матрица: ');
for i:=1 to m do
begin
for j:=1 to n do
write(r[i,j]:4);
writeln;
end;
end;
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.