Прокомментировать код

22.03.2015, 15:53. Показов 419. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
var
a:array [1..100,1..100] of integer;
i,j,k,n,m,y,c:integer;
begin
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(98)+1;
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
if (j mod 2=0) then
begin
for k:=n downto 2 do
begin
y:=1;
for i:=2 to k do
if a[i,j]>a[y,j] then
y:=i;
if y<>k then
begin
c:=a[y,j];
a[y,j]:=a[k,j];
a[k,j]:=c;
end;
end;
end;
writeln;
writeln('Отсортированный массив:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.03.2015, 15:53

Ответы с готовыми решениями:

Прокомментировать код
var n,i: integer; s:string; begin repeat readln(n); until(n > 0); while n > 0 do...

Прокомментировать код
Помогите, надо защищать лабу, программа есть, а как она работает не понимаю, можете...

Прокомментировать код
uses crt; var s,sl,smax: string; i,dmax: integer; begin write('Введите строку ');...

Прокомментировать код
Программа перевода чисел в десятичную систему счисления Program perev_10; var X,A,B:integer; ...

	22.03.2015, 15:53

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.03.2015, 15:53

Помогаю со студенческими работами здесь

Прокомментировать код
program vv; uses crt; const n=4; var a: array of integer; i,j,t: integer; begin ...

Прокомментировать код
program derr; uses crt; type info=record fio:string; voz:byte; ...

Прокомментировать код
Объясните, пожалуйста, программу, если можно, то по строчкам

Прокомментировать код
Ситуация следующая: знакомый написал программу,которую надо было сросно сдать(для промежуточной...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх