RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 24.05.2016, 14:55 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, maxim387! Код (Pascal) :: выделить код const
n=5;
m=6;
var
a:array[1..n,1..m]of integer;
b,c,d,e:integer;
begin
{вводим матрицу}
for b:=1 to n do
for c:=1 to m do
begin
write('A[',b,',',c,']:=');
readln(a[b,c]);
end;
{задача А}
for b:=1 to m do
begin
d:=1;
for c:=2 to n do
if a[c,b]>a[d,b] then d:=c;
c:=a[d,b];
a[d,b]:=a[n,b];
a[n,b]:=c;
end;
{вывод результата задачи А}
writeln;
writeln('task A');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:3);
writeln;
end;
{задача B}
for b:=1 to n do
begin
d:=0;
for c:=1 to m do
if a[b,c] mod 3=0 then d:=d+a[b,c];
a[b,m]:=d;
end;
{выводим результат задачи В}
writeln;
writeln('task B');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:3);
writeln;
end;
{задача C}
write('Enter col:=');
readln(d);
for b:=1 to n-1 do
for c:=b+1 to n do
if a[b,d]<a[c,d] then
begin
e:=a[b,d];
a[b,d]:=a[c,d];
a[c,d]:=e;
end;
{выводим результат задачиС}
writeln;
writeln('task C');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:3);
writeln;
end;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
