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

@lino4ka · Регистрация: 05.06.2010

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

@AI\EKCAH^P · 05.06.2010, 18:22

Pascal

const n=15;
Var a:array[1..n]  of real;
I,j:integer;
k:real;
Begin
  For i:=1 to n do
  Begin
    write('a[',i,']= ');
    readln(a[i]);
  End;
  For i:=1 to n-1 do
  For j:=i+1 to n do
  If a[i]<a[j] then
  begin
    k:=a[i];
    a[i]:=a[j];
    a[j]:=k;
  end;
  for i:=1 to 15 do
  writeln(a[i]:4:2);
  readln;
end.

@lino4ka 0 / 0 / 0 Регистрация: 05.06.2010 Сообщений: 47
		1
	Упорядочить по невозрастанию массив, содержащий 15 вещественных чисел. 05.06.2010, 18:11. Показов 2776. Ответов 1 Метки нет (Все метки) Упорядочить по невозрастанию массив, содержащий 15 вещественных чисел. 0

	05.06.2010, 18:22

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

Решение