ПОМОГИТЕ ПОЖАЛУЙСТА, ОПИСАТЬ ПОСЛЕДОВАТЕЛЬНО, ЧТО ВЫПОЛНЯЕТ ДАННАЯ ПРОГРАММА, ПОДРОБНО. 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...
ПОМОГИТЕ ПОЖАЛУЙСТА, ОПИСАТЬ ПОСЛЕДОВАТЕЛЬНО, ЧТО ВЫПОЛНЯЕТ ДАННАЯ ПРОГРАММА, ПОДРОБНО.
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.
Гость
Ответ(ы) на вопрос:
Гость1. При помощи датчика случайных чисел заполняется матрица r размером 5х5
2. Матрица выводится на экран.
3. Спрашивается, какое число необходимо найти в матрице (с).
4. Спрашивается, во сколько раз (d) необходимо увеличить строки матрицы, содержащих число с.
5. Результат выводится на экран.
Не нашли ответ?
Похожие вопросы