Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача по массивам

Автор: p.s.fo 30.11.2002 20:49

Напишите программу, please...
Значит, каждый из элементов ti массива T(m) заменить минимальным среди первых i элементов этого массива.
За ранее, big thanks!

Автор: p.s.fo 1.12.2002 8:41

Люди, please...Help!

Автор: p.s.fo 1.12.2002 11:09

Для тех, кто не понял задачу...
Значит, вводим какой-нить массив например из чисел
6 -2 -2 10 -3, а итогом должны быть выведены числа
6 -2 -2 -2 -3, т.е. в первом массиве 1 число оставляем без изменения, а потом 1 и 2, если 1>2, то пишем 2 число...если =< и т.д.

Автор: Dogmatic 1.12.2002 18:13

Код

Const
N = 5;
Var
FIn, FOut : text
S, T : array[1..N] of integer;
i : byte;
Begin
assign(FIn,'input.txt');
assign(FOut,'output.txt');
reset(FIn);
rewrite(FOut);
for i := 1 to N do
read(FIn,S[i]);
T[1] := S[1];
for i := 2 to N do
if T[i-1] > S[i] then
T[i] := S[i]
else
T[i] := T[i-1];
for i := 1 to N do
write(FOut,T[i], ' ');
close(FIn);
close(FOut);
End.

N - число элементов.
Вот и усё ;)

Не забываем заключать код в соответсвующие теги!

Автор: Aliska 14.10.2004 2:09

в паскале не шарю!!!((
ПАМАГИТЕ люди добрые!!!

Задачка1:
Даны наименования газет и фамилии нескольких подписчиков.
определить,какие газеты выписывает второй подписчик.

Задачка2:
Имеется список участников моткросса:фамилии,марки мотоциклов,время.
Определить спортсманов,занявших 1,2,3 места.

Создай отдельный топик!