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

@Cas01 · Регистрация: 11.05.2011

Помогите пожалуйста с написанием программы!Вот условие :

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

@lamed · 11.05.2011, 21:46

Pascal

// Найти сумму модулей элементов массива, расположенных 
// после минимального по модулю элемента!
const
  n=10;
var
  i,imin,sum:integer;
  a: array[1..n] of integer;
begin
  // Ввод
  for i:= 1 to n do 
    readln(a[i]);
  // Находим номер минимального по модулю элемента
  // Если таких элементов несколько, будет найден номер первого
  imin := abs(a[1]);
  for i:= 2 to n do
    if abs(a[i])<a[imin] then
      imin := i;
 
  // Находим сумму модулей элементов,
  // расположенных после первого минимального по модулю элемента
  sum:= 0;
  for i:= imin+1 to n do
    sum := sum+abs(a[i]);
 
  writeln(sum);
end.

@Cas01 · 11.05.2011, 21:52 **[ТС]**

спасибо огромное

@lamed · 11.05.2011, 21:53

Удачи!

@Cas01 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 30
		1
	Найти сумму модулей элементов массива, расположенных после минимального по модулю элемента 11.05.2011, 21:36. Показов 1348. Ответов 3 Метки нет (Все метки) Помогите пожалуйста с написанием программы!Вот условие : Найти сумму модулей элементов массива, расположенных после минимального по модулю элемента! Спасибо заранее! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Cas01 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 30
	11.05.2011, 21:52 [ТС]	3
	спасибо огромное 0

@lamed 298 / 298 / 150 Регистрация: 07.05.2011 Сообщений: 592
	11.05.2011, 21:53	4
	Удачи! 1

Опции темы

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

Решение