Одномерные Массивы.

@grumbar · Регистрация: 29.09.2010

Студворк — интернет-сервис помощи студентам

Уважаемый модератор помогите решить.

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

@znahar · 13.10.2010, 15:56

Pascal

uses crt;
var i, ind, n: integer;
    min: real;
    arr: array [1..100] of real;
begin
  clrscr;
  randomize;
  write('n= (n<100)');
  readln(n);
  writeln('Array:');
  min:=100; ind:=0;
  for i:=1 to n do
    begin
      arr[i]:=random(20)/2-10;
      write(arr[i]:4:1,', ');
      if abs(arr[i])< min then 
        begin
          min:=abs(arr[i]);
          ind:=i;
        end;
    end;
  writeln;
  min:=0;
  for i:=1 to ind-1 do
    min:=min + abs(arr[i]);
  writeln('result: ', min:5:2);
  readln;
end.

@Puporev · 13.10.2010, 16:08

znahar, Нужно предусмотреть случай, когда минимальный элемент первый, в этом случае нехорошо будет

Pascal

1	for i:=1 to ind-1 do

@znahar · 13.10.2010, 16:15

Подкорректировал - если минимальный элемент на первом месте, то сумма будет равно 0.
Спасибо за замечание, Puporev

Pascal

uses crt;
var i, ind, n: integer;
    min: real;
    arr: array [1..100] of real;
begin
  clrscr;
  randomize;
  write('n= (n<100)');
  readln(n);
  writeln('Array:');
  min:=100; ind:=0;
  for i:=1 to n do
    begin
      arr[i]:=random(20)/2-10;
      write(arr[i]:4:1,', ');
      if abs(arr[i])< min then 
        begin
          min:=abs(arr[i]);
          ind:=i;
        end;
    end;
  writeln;
  min:=0;
  if ind>1 then
    for i:=1 to ind-1 do
      min:=min + abs(arr[i]);
  writeln('result: ', min:5:2);
  readln;
end.

@grumbar 0 / 0 / 0 Регистрация: 29.09.2010 Сообщений: 16
		1
	Одномерные Массивы. 13.10.2010, 11:26. Показов 554. Ответов 3 Метки нет (Все метки) Уважаемый модератор помогите решить. В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму модулей элементов массива, расположенных перед минимальным по модулю элементом. 0

	13.10.2010, 16:15

Опции темы