Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Центр помощи > [Abs Pascal] перевод одного массива в другой

Автор: Rozelux 19.12.2011, 16:56

Есть задачка
Ввести одномерный массив А , вывести его. На место минимального элемента массива записать сумму последних трёх ненулевых элементов массива. На экран вывести массив после преобразования, или сообщение о невозможности модификации.

прошу напишите действующий код,
идея такова чтобы убрать из массива А все нулевые элементы и создать из них массив Б, потом найти в массиве Б 3 последних элемента и посчитать их сумму, эту сумму поставить на место минимального элемента массива А, безумно запутался в кодинге и уже схожу с ума. вот кодинг перевода одного массива в другой но он не хочет работать Безумно прошу помочь!!!

Код

Program massive121;
var
A: array [1..100] of real;
B: array [1..100] of real;
N,Nb,i,imin: integer;
min: real;
begin
ClS;
writeln('vvedite kol-vo elementov v massive');
readln(N);
for i:=1 to N do
begin
write ('A[',i,']=');
readln (A[i]);
end;
for i:=1 to N do
begin
writeln ('A[',i,']=',A[i]);
end;
min:=A[1];
imin:=1;
for i:=1 to N do
if A[i] < min then
begin
min:=A[i];
imin:=i;
write ('Наименьшее число в массиве = ',A[i],' и его номер = ',imin,' ');
end;
Nb:=0;
for i:=1 to N do
if A[i] <> 0 then
Nb:=Nb+1;
B[Nb]:=A[i];

end.