Задачи на работу с элементами массива и с компонентами массива

[Full Juice]

Помогите решить пару задач в паскале:

1)Дан целый массив из 4-х строк и 5 столбцов.Упорядочить массив по возрастанию элементов первой строки

2)В массиве из 10 целых чисел найти наименьший элемент и поменять его местами с последним элементом

[IT-man]

Стучи в аську! сделаю!недорого

[Full Juice]

аськой не пользуюсь
как по другому с тобой свзяаться можно?

[Deamonig]

2-я задача:

program ss;
var 
a:array[1..10]of integer;
k,c,i,min:integer;
begin
for i:=1 to 10 do
begin
writeln('vedite a[',i,']');
readln(a[i]);
end;
min:=a[10];
for i:=1 to 9 do
if a[i]<min
then 
begin
min:=a[i];
c:=i;
end;

k:=a[c];
a[c]:=a[10];
a[10]:=k;

for i:=1 to 10 do
write(a[i],' ');

readln;
end.

[Deamonig]

могу и первую решить задачку, но я не понял задание в ней. Там нужно упорядочить весь масив по возростанию, или же отдельно по возростанию каждую строку упорядочить?

[Full Juice]

наверно весь
я сам просто вообще не рублю в паскале поэтому определённо сказать не могу
скорее всего весь массив
СПАСИБО ТЕБЕ ОГРОМНОЕ ЗА ЗАДАЧУ))))


Слушай он мне ошибку 146 выдаёт
что делать?

[Deamonig]

1-я, хотя неуверен сам не проверял, попробуй и отпишысь работает или нет:

program sss;
var
a:array[1..4,1..5] of integer;
c,k,i,j:integer;
begin
for i:=1 to 4 do 
for j:=1 to 5 do
begin
writeln('vedite a[',i,',',j,']');
readln(a[i,j]);
end;

for i:=1 to 4 do
for j:=1 to 4 do
for k:=j to 5 do
if a[i,j]>a[i,k] then
begin
c:=a[i,j]; a[i,j]:=a[i,k]; a[i,k]:=c;
end;

for i:=1 to 4 do
for j:=1 to 5 do
writeln('a[',i,',',j,']=',a[i,j]);
readln;
end;

[Deamonig]

не помню что это за ошибка, но наверное ты где то ошибся в наборе символов, проверь правильно ли ты набрал программу, вариант тот что я тебе дал правильный во 2-й задаче, так что сверь свою с этой

[Full Juice]

Исправил ошибку!Надо было сохранить и переименовать!
А слушай во второй задаче ответ какой должен получится если вводить от 1 до 10 по порядку!у меня что-то слишком большой ответ вылазиет или он такой и должен быть?

на счёт первой задачи
ввожу множество значений а ответ он не выводит!
просто закрывается чёрное окно

[Deamonig]

попробуй опять 1-ю и 2-ю задачу, я изменил кое что в них, если во 2-й ввести по порядку от 1 до 10 то должно вывести рекультат:
10 2 3 4 5 6 7 8 9 1 - найменьшый елемент масива меняется с послдним