Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры

@rsjer · Регистрация: 28.04.2016

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

2) Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры.

@Peoples · 28.04.2016, 20:04

Pascal

program pr;
 
var
  a: array [1..100] of integer;
  i, temp,n, j: integer;
 
begin
writeln('Введите размер массива');
readln(n);
  for i := 1 to n do 
  begin
    a[i] := random(100, 999);
    write(a[i]:4);
  end;
  for i := 1 to n do 
    for j := 1 to n - i do
      if ((a[j] div 10) mod 10) > ((a[j + 1] div 10) mod 10) then
      begin
        temp := a[j];
        a[j] := a[j + 1];
        a[j + 1] := temp;
      end;
  writeln;
  for i := 1 to n do 
    write(a[i]:4);
end.

@rsjer 0 / 0 / 0 Регистрация: 28.04.2016 Сообщений: 11
		1
	Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры 28.04.2016, 12:59. Показов 30264. Ответов 1 Метки нет (Все метки) 2) Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры. 0

	28.04.2016, 20:04

Опции темы

Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры

Решение