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

@Василий92 · Регистрация: 15.09.2011

1.Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элемента.
Заранее спасибо.

@!.Ap0$T0L.! · 11.10.2011, 21:47

Pascal

var k :array [1..10000] of longint;
   n,min,i,q,s:longint;
begin
  readln(n);
  for i:=1 to n do
  read(k[i]);
  min:=k[i];
  for i:=2 to n do
    if k[i]<min then min :=k[i];
  for i:=1 to n do
     if k[i]= min then q:=i;
  for i:=q to n do
   s:= s+abs(k[i]);
  writeln(s);
end.

@Василий92 2 / 2 / 0 Регистрация: 15.09.2011 Сообщений: 38
		1
	Вычислить сумму модулей элементов массива, расположенных после минимального элемента 11.10.2011, 21:41. Показов 993. Ответов 1 Метки нет (Все метки) 1.Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элемента. Заранее спасибо. 0

Опции темы

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

Решение