Найти сумму модулей элементов массива, расположенных после минимального по модулю элемента

@sani9989 · Регистрация: 01.01.2013

решите задачи по делфи пожалуйста
2.Дан одномерный целочисленный массив. Найти сумму модулей элементов массива, расположенных после минимального по модулю элемента.

@ZLO1988 · 01.01.2013, 22:44

Вот еще одну набросал по быстрому на пасрале:

Pascal

program ggbb;
uses crt;
var mass: array [0..10] of byte;
    i, min,pornomer,sum: byte;
begin
sum:=0;
writeln('Ìàññèâ:');
for i:=0 to 10 do
begin
mass[i]:=random(40);
write(mass[i]);
write(' ');
end;
min:=mass[0];
for i:=1 to 10 do
if  (abs(mass[i]) < min) then
begin
min:=mass[i];
pornomer:=i;
end;
writeln('Ñóììà ïî ìîäóëþ:');
for i:=pornomer to 10 do
begin
sum:=sum+abs(mass[i]);
end;
writeln(sum);
end.

@sani9989 0 / 0 / 0 Регистрация: 01.01.2013 Сообщений: 23
		1
	Найти сумму модулей элементов массива, расположенных после минимального по модулю элемента 01.01.2013, 19:42. Показов 1420. Ответов 1 Метки нет (Все метки) решите задачи по делфи пожалуйста 2.Дан одномерный целочисленный массив. Найти сумму модулей элементов массива, расположенных после минимального по модулю элемента. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы