Программирование с одномерными массивами

[andreis459]

Поменять местами первый и максимальный по модулю отрицательный
элементы массива.

[AncientHero]

{программа для массива от 2ух до n элементов}
const
 n=100;
var
 a:array[1..n]of longint;
 k,i:longint;
begin
read(k);{k - количество элементов в массиве}
for i:=1 to k do read(a[i]);
for i:=2 to k do if a[i]>a[1] then a[1]:=a[i];
write(sqr(a[1]));
end.

[phomm]

что за код такой ? он только присваивает первому элементу массива максимальное значение из массива (естественно, теря своё исходное знаения и не меняя его ни с чем) и выводит зачем-то квадрат из этого максимального элемента.

надо написать другой код:

const
 n=100;
var
 a:array[1..n]of longint;
 k,i,min :longint;
begin
read(k);{k - количество элементов в массиве}
for i:=1 to k do read(a[i]);
min := 1;
for i:=2 to k
  do if a[i]<a[min]
    then min:= i; // нахождение минимального элемента массива
// обмен первого и мин.
i := a[1];
a[1] := a[min];
a[min] := i ;
//вывод
for i := 1 to k do
write(a[i]:5);
end.

как-то так, но не сделана проверка на существование отрицательных элементов, ибо если их не будет то обменяется лишь первый с минимальным, если нужна такая, пиши договоримся, а впредь решай задачи сам, и выкладывай на форум только если что-то конкретное не получается, и у тебя есть вопросы по ТВОЕМУ коду, а не "решите мне плз"

[andreis459]

помогите дописать

program EXAMPLE_6;
uses crt;
var m : array [1..50] of integer;
n, i : byte;
a, z: integer;
begin
clrscr;
writeln(''Задание 6. Вариант 5');
write('задайте длину массива ( <= 50 ):');
readln (n);
writeln('введите исходный массив');
for i := 1 to n do
begin
write ('m[',i,']=');
readln (m[i]);
end;
writeln ('исходный массив');
for i := 1 to n do write(m[i]:6);


writeln;
writeln ('Программа завершена .Нажмите Enter.');
readln;
end.

[Karina89]

min := -1000;
for i:=1 to n do begin
if a[i]<0 then
if abs(a[i])>min
then begin min:= a[i]; k:=i; end;
end;
p:= a[1];
a[1] := a[k];
a[k] := p;
//вывод
for i := 1 to n do
write(a[i]:5);
end.


попробуй так =)
и не забудь объявить в VAR переменные k, p: integer;