Спроектировать и реализовать программу, что создает и выводит на экран одномерный массив A на 10 элементов, Ai=random(20)+2

@Спайк · Регистрация: 25.09.2013

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

Отсортировать массив по убыванию, используя метод минимальных элементов.

@Mblp · 11.12.2013, 01:27

Pascal

  var
  a:array [1..100] of integer;
  i,j,n,min,imin,jmin:integer;
  begin
  writeln('Введите N');
  readln(n);
  for i:=1 to n do begin
  a[i]:=random(20)+2;
  write(a[i],' ');
  end;
 for i:=1 to n do
 for j:=1 to n do
 if (a[j]<a[i]) then
 begin
 min:=a[j];
 a[j]:=a[i];
 a[i]:=min;
 end;
writeln;
writeln('Измененный массив');
for i:=1 to n do 
write(a[i],' ');
end.

@Спайк 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 20
		1
	Спроектировать и реализовать программу, что создает и выводит на экран одномерный массив A на 10 элементов, Ai=random(20)+2 10.12.2013, 23:25. Показов 1152. Ответов 1 Метки нет (Все метки) Отсортировать массив по убыванию, используя метод минимальных элементов. 0

Опции темы

Спроектировать и реализовать программу, что создает и выводит на экран одномерный массив A на 10 элементов, Ai=random(20)+2

Решение