хоть это и не сильно важно, но я лично не понял что это за слово." писал(а):дійсних
Код: Выделить всё
var arr:array [1..количество_элементов] of чевототам;
a,b,s:чевототам;i:integer;
begin
for i:=1 to количество_элементов do
begin
writeln('введите элемент номер',i);
readln(arr[i]);
end; {только что были введены все элементы массива}
a:=abs(arr[1]);{чтобы было с чем сравнивать}
for i:=2 to количество_элементов do
if abs(arr[i])<a then a:=abs(arr[i]);{цикл будет сравнивать модуль элемента массива с значением переменной а, таким образом в переменной а будет записан модуль наименьшего элемента массива}
b:=abs(arr[1]);{по аналогии с переменной а}
for i:=2 to количество_элементов do
if (abs(arr[i])<b) and (abs(arr[i])<>a) then b:=abs(arr[i]);
{этот цикл делает то же, что и предыдущий, но загоняет в переменную b наименьший элемент исключая значение, уже записанное в а}
s:=a+b;{а вот и наша сумма модулей наименьших элементов, которая выводится через writeln или write}Код: Выделить всё
b:=abs(arr[1])Код: Выделить всё
for i:=1 to количество_элементов do
if abs(arr[i])<>a then begin b:=abs(arr[i]);break;end;Надо сказать преподу: "Техзадание надо ставить сразу и конкретно, а не менять по ходу разработки!".annihilator писал(а):Хыиуду, ну зачем же портить массив? а если препод скажет ещё что-то туда добавить, с чем работать?
тоже правда, но всё таки лучше не менять исходные данные - пусть себе лежат, думаю что лишний кб никому не навредит. К слову, хоть и оффтоп, у меня в универе препод по информатике никогда от меня ничего не хотел, ибо он ещё больший ламак чем я =)Хыиуду писал(а):Надо сказать преподу: "Техзадание надо ставить сразу и конкретно, а не менять по ходу разработки!".
А если не хочется портить отношения - создать еще один такой же массив и с ним работать