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

ostryak5 · 09.10.2012, 20:32

Удалить из одномерного массива минимальный элемент

NinaTimof · 19.10.2012, 12:36

приведите ваш вариант программы, пожалуйста

Gruvi · 19.10.2012, 13:39

С паскалем особо не дружу и пишу в блокноте вот если правильно работает :

Цитата:

var
a: array[1.100] of integer;
i,min,k: integer;
begin
write('Введите размерность: ');
readln(n);
writeln('Исходный массив');
For i:=1 to n do
Begin
A[i]:=random(11)-5
End;
min:=a[1]; k:=1;
for i:=2 to n do
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
for i:=k to n-1 do
a[i]:=a[i+1];
writeln('Преобразованный массив:');
for i:=1 to n-1 do write(a[i],' ');
end.

09.10.2012, 20:32	#1 (permalink)
ostryak5 Новичок Регистрация: 11.06.2012 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачу в Паскаль Удалить из одномерного массива минимальный элемент

09.10.2012, 20:32
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Обычно первым делом эффективнее всего прочитать похожие темы Помогите решить задачу Требуется решить задачу Паскаль Помогите, пожалуйста, решить задачу. Паскаль Помогите решить задачу) Помогите решить задачу

19.10.2012, 12:36	#2 (permalink)
NinaTimof Member Регистрация: 08.10.2012 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 54	приведите ваш вариант программы, пожалуйста

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