| ← Март 2017 → | ||||||
|
2
|
3
|
4
|
5
|
|||
|---|---|---|---|---|---|---|
|
6
|
7
|
9
|
10
|
11
|
12
|
|
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
|
27
|
28
|
29
|
30
|
31
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 03.03.2017, 22:38 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, pichyshkina! Код (Pascal) :: выделить код const
m=6;
n=5;
type
TLine=array[1..m]of integer;
var
a:array[1..n]of TLine;
b,c:integer;
procedure d(var a:TLine);
var
b,c:integer;
begin
b:=1;
for c:=2 to m do
if a[b]<a[c] then b:=c;
b:=a[b];
for c:=1 to m do
if a[c]=b then a[c]:=-10;
end;
begin
randomize;
writeln('create');
for b:=1 to n do
begin
for c:=1 to m do
begin
a[b,c]:=random(100);
write(a[b,c]:4);
end;
writeln;
end;
writeln('work');
for b:=1 to n do
d(a[b]);
writeln('result');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:4);
writeln;
end;
end.ps:воросы в минифорум. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
