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

[andreis459]

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

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

 

[shrek=)]

Поскольку ЯП не указан, то PASCAL:

var
a:array [1..10] of integer;
j,i,max,k:integer;
begin
max:=-100;
for i:=1 to 10 do begin
a[i]:=random(100);
write (a[i]:3);
if abs(a[i])>max then begin max:=a[i]; k:=i;
end;
end;
j:=a[1];
a[1]:=a[k];
a[k]:=j;
writeln;
for i:=1 to 10 do
write (a[i]:3);
readln
end.

 

[Vladimir_S]

Миша, опять торОпитесь! В задании требуется найти максимальный по модулю отрицательный элемент, а Вы находите просто максимальный по модулю! Не говоря уже о том, что Ваш массив заполняется сугубо неотрицательными числами, т.е. отрицательных там нет вовсе! Исправьте, пожалуйста.

 

[shrek=)]

Прошу прощения действительно поторопился.
Вот измененный код:

var
a:array [1..10] of integer;
j,i,max,k:integer;
begin
max:=-100;
for i:=1 to 10 do begin
a[i]:=random[COLOR=Red][B](31)-30[/B][/COLOR];
write (a[i]:3);
if [B][COLOR=Red](a[i]<0)[/COLOR] [/B]and (abs(a[i])>max) then begin max:=a[i]; k:=i;
end;
end;
j:=a[1];
a[1]:=a[k];
a[k]:=j;
writeln;
for i:=1 to 10 do
write (a[i]:5);
readln
end.

 

[andreis459]

спасибо

 

[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 ;
writeln('введите исходный массив');
for i := 1 to n do
begin
write ('m[',i,']=');
readln (m);
end;
writeln ('исходный массив');
for i := 1 to n do write(m:6);


writeln;
writeln ('Программа завершена .Нажмите Enter.');
readln;
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 ;
writeln('введите исходный массив');
for i := 1 to n do
begin
write ('m[',i,']=');
readln (m);
end;
writeln ('исходный массив');
for i := 1 to n do write(m:6);


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