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

@Rimma97 · Регистрация: 11.12.2014

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

Массив a[n] n=4 задается пользователем с клавиатуры
Найти сумму всех элементов массива a[n]; sum
Сформировать массив b[i]=a[i]/sum
Отсортировать массив b[i] по убыванию
Вывести на экран массив b[n]

@Joy · 24.12.2014, 14:23

Pascal

const n=4;
var
  a,b:array[1..n] of real;
  i,j:integer;
  sum,t:real;
begin
  write('Введите массив A:');
  for i:=1 to n do begin read(a[i]);sum:=sum+a[i];end;
  if sum=0 then writeln('Сумма элементов равна 0')
  else begin
    for i:=1 to n do b[i]:=a[i]/sum;
    for i:=1 to n-1 do
      for j:=i to n do if b[i]<b[j] then begin t:=b[i];b[i]:=b[j];b[j]:=t;end;
        write('Массив B:');      
    for i:=1 to n do write(b[i]:6:2);  
  end;  
end.

@Rimma97 0 / 0 / 0 Регистрация: 11.12.2014 Сообщений: 11
		1
	Найти сумму элементов массива, упорядочить его по убыванию 24.12.2014, 11:54. Показов 2200. Ответов 1 Метки нет (Все метки) Массив a[n] n=4 задается пользователем с клавиатуры Найти сумму всех элементов массива a[n]; sum Сформировать массив b[i]=a[i]/sum Отсортировать массив b[i] по убыванию Вывести на экран массив b[n] 0

Опции темы

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

Решение