| ← Апрель 2019 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
6
|
|
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
|
15
|
16
|
17
|
18
|
20
|
21
|
|
|
22
|
23
|
24
|
25
|
26
|
27
|
28
|
|
29
|
30
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 14.04.2019, 14:39 Консультирует puporev (Профессионал): Здравствуйте, syndicate71rus! Код (Pascal) :: выделить код uses crt;
var a:array[1..10,1..10] of integer;
m,n,i,j,k,v,u,imn,min:integer;
begin
clrscr;
repeat
writeln('Введите количество строк и столбцов от 3 до 10');
readln(m,n);
until(m in [3..10])and(n in [3..10]);
{рандомный ввод практически не даст упорядоченных строк}
writeln('Введите построчно элементы матрицы,');
writeln('в том числе строки упорядоченные по возрастанию или по убыванию');
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
clrscr;
writeln('Введенная матрица');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
k:=0; {есть ли упорядоченные строки}
for i:=1 to m do
begin
v:=0;{кол. возрастаний}
u:=0; {кол. убываний}
for j:=2 to n do
if a[i,j]>a[i,j-1] then inc(v)
else if a[i,j]<a[i,j-1] then inc(u);
if v=n-1 then imn:=a[i,1]{если все возрастают, минимальный в строке первый}
else if u=n-1 then imn:=a[i,n]; {если все убывают, минимальный в строке последний}
if((v=n-1)or(u=n-1))and(k=0) then {если соблюдается условие и это первая строка}
begin
min:=imn; {ее минимальный есть минимальный в матрице}
k:=1; {далее строка не первая}
end
else if imn<min then min:=imn;{если не первая и минимум в ней меньше то он минимум матрицы}
end;
if k=0 then write(k)
else write('Минимальный в упорядоченных строках=',min);
readln
end.если все же хотите рандомный ввод, замените ввод так Код (Pascal) :: выделить код randomize;
writeln('Матрица');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
