Задан вещественный вектор х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.

Объяснение кода листинга программы

Список действий в коде:

  1. Установка начального значения переменной i равным 1.
  2. Установка начального значения переменной j равным 1.
  3. Инициализация массива a случайными числами от -50 до 50.
  4. Проверка каждого элемента массива a. Если элемент больше нуля, то увеличение значения переменной j.
  5. Вывод каждого элемента массива a на экран.
  6. Вывод значения переменной j, которая содержит количество положительных элементов.
  7. Сортировка массива a методом пузырька.
  8. Вывод отсортированного массива a на экран.
  9. Ввод с клавиатуры символа для завершения работы программы.

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы