Задан вещественный вектор х30. Подсчитать в нём число положительных элементов и провести сортировку по возрастанию - Pascal
Формулировка задачи:
Помогите решить.Иначе экзамен не поставят(
Задан вещественный вектор х30. Подсчитать в нём число положительных элементов и провести сортировку по возрастанию.
Решение задачи: «Задан вещественный вектор х30. Подсчитать в нём число положительных элементов и провести сортировку по возрастанию»
textual
Листинг программы
uses crt; const n = 30; var i,j: integer; temp: real; a: array [1..n] of real; begin clrscr; randomize; for i:=1 to n do begin a[i]:=random(100)-50; if a[i]>0 then inc(j); write(a[i]:4); end; writeln; writeln('Положительных: ',j); for i:=1 to n do for j:=1 to n-1 do begin if a[i]<a[j] then begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp; end; end; for i:=1 to n do write(a[i]:4); readln; end.
Объяснение кода листинга программы
Список действий в коде:
- Установка начального значения переменной
i
равным 1. - Установка начального значения переменной
j
равным 1. - Инициализация массива
a
случайными числами от -50 до 50. - Проверка каждого элемента массива
a
. Если элемент больше нуля, то увеличение значения переменнойj
. - Вывод каждого элемента массива
a
на экран. - Вывод значения переменной
j
, которая содержит количество положительных элементов. - Сортировка массива
a
методом пузырька. - Вывод отсортированного массива
a
на экран. - Ввод с клавиатуры символа для завершения работы программы.