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

andreis459 · 19.03.2011, 00:37

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

shrek=) · 19.03.2011, 16:24

Поскольку ЯП не указан, то 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 · 19.03.2011, 18:02

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

shrek=) · 19.03.2011, 18:17

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

Код:

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(31)-30;
write (a[i]:3);
if (a[i]<0) 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 · 19.03.2011, 20:35

спасибо

andreis459 · 27.03.2011, 00:16

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

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.

andreis459 · 27.03.2011, 00:24

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

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.

19.03.2011, 00:37	#1 (permalink)
andreis459 Новичок Регистрация: 19.03.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программирование задач с одномерными массивами Поменять местами первый и максимальный по модулю отрицательный элементы массива.

19.03.2011, 16:24	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Поскольку ЯП не указан, то 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.

19.03.2011, 18:17	#4 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Прошу прощения действительно поторопился. Вот измененный код: Код: 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(31)-30; write (a[i]:3); if (a[i]<0) 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.

19.03.2011, 00:37
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Обсуждения имеют общий смысл с вашей темой, прочтите их Оформление процедуры с массивами Помогите с двумерными массивами. C++

19.03.2011, 18:02	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Миша, опять торОпитесь! В задании требуется найти максимальный по модулю отрицательный элемент, а Вы находите просто максимальный по модулю! Не говоря уже о том, что Ваш массив заполняется сугубо неотрицательными числами, т.е. отрицательных там нет вовсе! Исправьте, пожалуйста.

19.03.2011, 20:35	#5 (permalink)
andreis459 Новичок Регистрация: 19.03.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

27.03.2011, 00:16	#6 (permalink)
andreis459 Новичок Регистрация: 19.03.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	помогите дописать 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.

27.03.2011, 00:24	#7 (permalink)
andreis459 Новичок Регистрация: 19.03.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	помогите дописать 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.