Написать программу, которая упорядочивает массив

@hacker226 · Регистрация: 23.04.2015

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

при вводе 10 чисел произвольных из консоли программа должна заменить отрицательные числа на их квадраты и отсортировать их по убыванию! вывод начальный массив и кицевий в консоль

по существу программа має на входе задаваться 10 любых чисел! отрицательные из етих 10 менять на их квадраты! потом отсортировать по убыванию целый массив! вывод начальный массив и конечный

@ZX Spectrum-128 · 04.12.2015, 22:56

Pascal

const
  n = 10;
 
var
  a: array[1..n] of integer;
  t, i, j: integer;
 
begin
  for i := 1 to n do
    readln(a[i]);
  writeln('Исходный массив (введенный):');  
  for i := 1 to n do    
    write(a[i]:5);
  writeln;  
  writeln('Преобразованный массив: ');  
  for i := 1 to n do   
  begin
    if a[i] < 0 then
      a[i] := sqr(a[i]);
    write(a[i]:5);
  end;
  writeln;  
  for j := 1 to n - 1 do
    for i := 1 to n - 1 do
      if a[i] < a[i + 1] then
      begin
        t := a[i];
        a[i] := a[i + 1];
        a[i + 1] := t;
      end;
  writeln('Отсортированный массив:');    
  for i := 1 to n do    
    write(a[i]:5);
  
end.

@hacker226 0 / 0 / 1 Регистрация: 23.04.2015 Сообщений: 31
		1
	Написать программу, которая упорядочивает массив 04.12.2015, 16:18. Показов 1119. Ответов 1 Метки нет (Все метки) при вводе 10 чисел произвольных из консоли программа должна заменить отрицательные числа на их квадраты и отсортировать их по убыванию! вывод начальный массив и кицевий в консоль по существу программа має на входе задаваться 10 любых чисел! отрицательные из етих 10 менять на их квадраты! потом отсортировать по убыванию целый массив! вывод начальный массив и конечный 0

	04.12.2015, 22:56

Написать программу, которая упорядочивает массив

Решение