Каждый элемент одномерного массива разделить на сумму всех его элементов

@Максм7777 · Регистрация: 04.09.2014

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

Найти сумму элементов одномерного массива размером 4. разделить каждый элемент исходного массива на полученное значение. результат получить в том же массиве. напечатать в одной строке. Паскаль

@bormant · 04.09.2014, 21:23

Pascal

const
  n=4;
type
  TVector=array [1..n] of Real;
var
  v: TVector;
  s: Real;
  i: Integer;
begin
  Randomize;
  WriteLn('Исходный массив:');
  for i:=1 to n do begin
    v[i]:=Random*10;
    Write(v[i]:8:2);
    s:=s+v[i];
  end;
  WriteLn;
  if s=0 then WriteLn('Сумма элементов равна 0.')
  else begin
    WriteLn('Новый массив:');
    for i:=1 to n do begin
      v[i]:=v[i]/s;
      Write(v[i]:8:2);
    end;
    WriteLn;
  end;
end.

@Максм7777 0 / 0 / 0 Регистрация: 04.09.2014 Сообщений: 2
		1
	Каждый элемент одномерного массива разделить на сумму всех его элементов 04.09.2014, 17:00. Показов 2493. Ответов 1 Метки нет (Все метки) Найти сумму элементов одномерного массива размером 4. разделить каждый элемент исходного массива на полученное значение. результат получить в том же массиве. напечатать в одной строке. Паскаль 0

Опции темы

Каждый элемент одномерного массива разделить на сумму всех его элементов

Решение