Написать программу в паскале: подсчитать количество элементов массива целых чисел, меньших 0. и блок схему,

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Элементов, меньших нуля: ',a.Count(x->x<0))
end.

Пример
n= 13
23 -47 39 19 37 -34 -47 -15 -15 -2 -41 6 20
Элементов, меньших нуля: 7

Можно либо циклы в общем цикле (коротко и красиво):

использовать Робот

алг

нач

нц пока снизу свободно

вниз

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

кц

кон

То же самое ещё понятнее и короче выглядит, если малые циклы в строчку записать:

использовать Робот

алг

нач

нц пока снизу свободно

вниз

нц пока справа свободно; вправо кц

нц пока снизу свободно; вниз кц

нц пока слева свободно; влево кц

кц

кон

Либо просто несколько циклов друг за другом (длинно и уныло):

использовать Робот

алг

нач

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

вниз

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

кон

Відповідь:

#include <iostream>

using namespace std;

void sortmaxtomin(int *arr){

for(int i = 0; i < 7;i++){

 for(int j = 0; j < 6; j++){

  if(arr[i] > arr[j]){

   swap(arr[i], arr[j]);

  }

 }

}

}

void sortmintomax(int *arr){

for(int i = 0; i < 7;i++){

 for(int j = 0; j < 6; j++){

  if(arr[i] < arr[j]){

   swap(arr[i], arr[j]);

  }

 }

}

}

void printarr(int *arr){

for(int i = 0; i < 7; i++){

 cout << arr[i] << " ";

}

}

int main(){

setlocale(LC_ALL , "Rus");

int A[] = {20,110,40,775,95,145,1100};

cout << "Массив: ";

printarr(A);

cout << "\nСортировка по убыванию: ";

sortmaxtomin(A);

printarr(A);

cout << "\nСортировка по возрастанию: ";

sortmintomax(A);

printarr(A);

return 0;

}