М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sabin200089
sabin200089
11.04.2022 06:48 •  Информатика

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

👇
Ответ:
omastaliev2018
omastaliev2018
11.04.2022
// 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

Написать программу в паскале: подсчитать количество элементов массива целых чисел,меньших 0. и блок
4,5(11 оценок)
Открыть все ответы
Ответ:
diman10000
diman10000
11.04.2022

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

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

алг

нач

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

вниз

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

вправо

кц

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

вниз

кц

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

влево

кц

кц

кон

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

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

алг

нач

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

вниз

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

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

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

кц

кон

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

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

алг

нач

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

вправо

кц

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

вниз

кц

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

влево

кц

вниз

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

вправо

кц

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

вниз

кц

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

влево

кц

кон


Написать программу для робота обязательно используя цикл пока. Условия для робота:слева свободноспра
4,4(5 оценок)
Ответ:
TookteR
TookteR
11.04.2022

Відповідь:

#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;

}

4,5(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ