| ← Декабрь 2018 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
8
|
9
|
|
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
|
17
|
18
|
19
|
20
|
23
|
||
|
25
|
27
|
28
|
29
|
30
|
||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 16.12.2018, 15:33 Консультирует puporev (Профессионал): Здравствуйте, 01goch01! Код (Pascal) :: выделить код var rmatr:array[1..10,1..10] of byte;
n,m,i,j,im,jm,jmx,mn,mx:byte;
begin
randomize;
repeat
write('Введите количество строк матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
repeat
write('Введите количество столбцов матрицы от 3 до 10 m=');
readln(m);
until m in [3..10];
for i:=1 to n do
begin
for j:=1 to m do
begin
rmatr[i,j]:=random(100);
write(rmatr[i,j]:3);
end;
writeln;
end;
writeln('Минимальные элементы строк');
im:=1; //пусть максимальный из минимальных в первой строке
for i:=1 to n do
begin
mn:=rmatr[i,1]; //ищем минимальный в строке
jm:=1; //его индекс в строке
for j:=2 to m do
if rmatr[i,j]<mn then
begin
mn:=rmatr[i,j];
jm:=j;
end;
writeln(i:2,'=',mn);
if i=1 then//если строка первая
begin
mx:=mn;//максимум
jmx:=jm; //его индекс в строке
end
else if mn>mx then //иначе
begin
mx:=mn; //максимум
im:=i; //индекс строки
jmx:=jm; //индекс столбца
end;
end;
writeln('Из них максимальный=',mx,' его индексы [',im,',',jmx,']')
end.2) Код (Pascal) :: выделить код var rmatr:array[1..10,1..10] of byte;
n,m,i,j,imn,jmn,imx,jmx,mn,mx:byte;
begin
randomize;
repeat
write('Введите количество строк матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
repeat
write('Введите количество столбцов матрицы от 3 до 10 m=');
readln(m);
until m in [3..10];
for i:=1 to n do
begin
for j:=1 to m do
begin
rmatr[i,j]:=random(100);
write(rmatr[i,j]:3);
if i+j=2 then //если первый элемент
begin
mn:=rmatr[i,1]; //то он пока минимальный
imn:=1;
jmn:=1;
mx:=rmatr[1,1];//и максимальный
imx:=1;
jmx:=1;
end
else if rmatr[i,j]<mn then //если не первый и меньше минимального
begin
mn:=rmatr[i,j]; //он минимальный
imn:=i; //его индексы
jmn:=j;
end
else if rmatr[i,j]>mx then //если не первый и больше максимального
begin
mx:=rmatr[i,j];//он максимальный
imx:=i; //его индексы
jmx:=j;
end;
end;
writeln;
end;
writeln('Минимальный элемент [',imn,',',jmn,']=',mn);
writeln('Максимальный элемент [',imx,',',jmx,']=',mx);
//обмен элементов
mn:=rmatr[imn,jmn];
rmatr[imn,jmn]:=rmatr[imx,jmx];
rmatr[imx,jmx]:=mn;
writeln('Обмен минимального и максимального');
for i:=1 to n do
begin
for j:=1 to m do
write(rmatr[i,j]:3);
writeln;
end;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
