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

@Flaze · Регистрация: 27.05.2013

Добрый вечер, помогите пожалуйста с задачкой на зачёт по турбо паскаль:

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

Kodzaev · 20.10.2013, 20:32

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

Pascal

var
  x: array [1..100] of integer;
  i, n, min, imin, s: integer;
 
begin
  Write('Введите размер массива: ');
  Readln(n);
  min := MAXINT;
  Randomize;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i], #32);
    if x[i] < min then
    begin
      min := x[i];
      imin := i;
    end;
  end;
  Writeln;
  for i := n downto imin + 1 do
    s := s + Abs(x[i]);
  Writeln('Сумма = ', s);
  Readln
end.

Если нужно после последнего минимального элемента, то заменить 14 строчку на эту:

Pascal

1	if x[i] <= min then

@Flaze 1 / 1 / 1 Регистрация: 27.05.2013 Сообщений: 160
		1
	Вычислить сумму модулей элементов массива, расположенных после минимального элемента 20.10.2013, 17:51. Показов 1116. Ответов 1 Метки нет (Все метки) Добрый вечер, помогите пожалуйста с задачкой на зачёт по турбо паскаль: Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элемента. 0

Опции темы

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

Решение