Страница 1 из 1
Не могу решить простетскую задачку...
Добавлено: 28 сен 2009, 19:18
Saylar
Здраствуйте! Помогите пожалуста, кому не сложно решить довольно простетскую задачку. Пробывал, но у меня не выходит...
Требуется отсортировать по возрастанию только элементы массива с чётным индексом
И ещё вот одна, ну в ней у меня вообще завал
Задан двумерный массив, требуется переставить местами элементы 1 столбца и элементы столбца в котором находятся самый максимальный элемент этого массива.
Я в этом деле новичёк, но все в переди.
Re: Не могу решить простетскую задачку...
Добавлено: 28 сен 2009, 20:17
rangerx
Пробывал, но у меня не выходит...
email:
xranger@mail.ru
Обращайтесь, сделаю недорого.
Либо выкладывайте свой код. Что не получается?
Re: Не могу решить простетскую задачку...
Добавлено: 28 сен 2009, 20:48
Sheka
Сделаю. Очень не дорого! (несколько бутылок пива). 255507394
Re: Не могу решить простетскую задачку...
Добавлено: 28 сен 2009, 21:48
Newbie
program pp;
uses
crt;
const n = 20;
var
ar : array[1..n] of integer;
i, dx, temp : integer;
begin
clrscr;
randomize;
for i := 1 to n do
begin
ar := random(30);
writeln(ar);
end;
dx := trunc(n / 2);
writeln(dx);
i := 1;
while(i < dx )do
begin
if(ar[i * 2] > ar[(i + 1) * 2]) then
begin
temp := ar[i * 2];
ar[i * 2] := ar[(i + 1) * 2];
ar[(i + 1) * 2] := temp;
if(i > 1) then
i := i - 1;
end
else
i := i + 1;
end;
writeln('--------------------------');
for i := 1 to n do
begin
if (i mod 2 = 0) then
writeln('->',ar)
else
writeln(ar);
end;
readkey;
end.
на первую задачу.
прога тупая) лень мозги вечером напрягать)
Re: Не могу решить простетскую задачку...
Добавлено: 06 окт 2009, 23:48
dr.Jekill
[syntax="pascal"]
uses crt;
var n_col,n_row: byte;
mass: array[1..30,1..30] of real;
i,j,max_j: integer;
max,buf: real;
begin
clrscr;
write('Zadaite kol-vo strok: ');
readln(n_col);
write('Zadaite kol-vo stolbcov: ');
readln(n_row);
max_j:=1;
for i:=1 to n_col do
begin
clrscr;
writeln('Stroka ',i);
for j:=1 to n_row do
begin
write('#',j,': ');
readln(mass[i,j]);
if (i=1) and (j=1) then max:=mass[i,j]
else if max<=mass[i,j] then
begin
max:=mass[i,j];
max_j:=j;
end;
end;
end;
clrscr;
writeln('ISHODNYI MASSIV: ');
for i:=1 to n_col do
begin
for j:=1 to n_row do write(mass[i,j]:6:2,' ');
writeln;
end;
writeln('MAX: ',max:6:2);
readkey;
for i:=1 to n_col do
begin
buf:=mass[i,1];
mass[i,1]:=mass[i,max_j];
mass[i,max_j]:=buf;
end;
writeln('MASSIV POSLE PERESTANOVKI: ');
for i:=1 to n_col do
begin
for j:=1 to n_row do write(mass[i,j]:6:2,' ');
writeln;
end;
readkey;
end.
[/syntax]