Дан массив целых чисел , определить в нем количество положительных и отрицательных

//PascalABC.NET 3.2 сборка 1318

Const  n=4;
begin
  var ar:=readarrInteger(n);
  writeln('Positive:',ar.Where(x -> x>0).Count);
  writeln('Negative:',ar.Where(x -> x<0).Count);
end.

Пример ввода:
1
2
0
-1
Пример вывода:
Positive:2
Negative:1

// C++
#include <iostream>using namespace std;const int N = 200;
int main() { setlocale(LC_ALL, "rus"); int data[N]; int Pol, Otr, sizemas; Pol = 0; Otr = 0; cout << "Введите размер массива" << endl; cin >> sizemas; cout << "Введите элементы массива (без 0)" << endl; for(int i=0; i<sizemas; i++) { cin >> data[i]; } for(int i=0; i<sizemas; i++) { if(data[i] >= 0) { Pol++; } else { Otr++; } } cout << "Положительных элементов: " << Pol << endl << "Отрицательных элементов: " << Otr << endl; return 0;}

1. 147

2. 16

Объяснение:

1.

s = 3       k = 1

пока выполняется условие k < 25 (ДА) выполнить действия:

s = s + k

k = k + 2

s = 3       k = 1

1 < 25       ДА

s = 3 + 1 = 4

k = 1 + 2 = 3

s = 4       k = 3

3 < 25       ДА

s = 4 + 3 = 7

k = 3 + 2 = 5

s = 7       k = 5

5 < 25       ДА

s = 7 + 5 = 12

k = 5 + 2 = 7

s = 12       k = 7

7 < 25       ДА

s = 12 + 7 = 19

k = 7 + 2 = 9

s = 19       k = 9

9 < 25       ДА

s = 19 + 9 = 28

k = 9 + 2 = 11

s = 28       k = 11

11 < 25       ДА

s = 28 + 11 = 39

k = 11 + 2 = 13

s = 39       k = 13

13 < 25       ДА

s = 39 + 13 = 52

k = 13 + 2 = 15

s = 52       k = 15

15 < 25       ДА

s = 52 + 15 = 67

k = 15 + 2 = 17

s = 67       k = 17

17 < 25       ДА

s = 67 + 17 = 84

k = 17 + 2 = 19

s = 84       k = 19

19 < 25       ДА

s = 84 + 19 = 103

k = 19 + 2 = 21

s = 103       k = 21

21 < 25       ДА

s = 103 + 21 = 124

k = 21 + 2 = 23

s = 124       k = 23

23 < 25       ДА

s = 124 + 23 = 147

k = 23 + 2 = 25

s = 147       k = 25

25 < 25       НЕТ     цикл прерывается

2.

s = 2       k = 2

пока выполняется условие s < 50 (ДА) выполнить действия:

s = s + k

k = k + 2

s = 2       k = 2

2 < 50       ДА

s = 2 + 2 = 4

k = 2 + 2 = 4

s = 4       k = 4

4 < 50       ДА

s = 4 + 4 = 8

k = 4 + 2 = 6

s = 8       k = 6

8 < 50       ДА

s = 8 + 6 = 14

k = 6 + 2 = 8

s = 14       k = 8

14 < 50       ДА

s = 14 + 8 = 22

k = 8 + 2 = 10

s = 22       k = 10

22 < 50       ДА

s = 22 + 10 = 32

k = 10 + 2 = 12

s = 32       k = 12

32 < 50       ДА

s = 32 + 12 = 44

k = 12 + 2 = 14

s = 44       k = 14

44 < 50       ДА

s = 44 + 14 = 58

k = 14 + 2 = 16

s = 58       k = 16

58 < 50       ДА        цикл прерывается

ответы ниже

Объяснение:

1) Моделирование — исследование объектов познания на их моделях; построение и изучение моделей реально существующих объектов, процессов или явлений с целью получения объяснений этих явлений, а также для предсказания явлений, интересующих исследователя.

2) Более строго, по сути модель представляет собой вид информационной системы, копирующей целевые системы (информационные, энергетические, вещественные), и предназначенной для изучения свойств последних. ... Моделирование - процесс построения, изучения и применения моделей.

3) Компьютерное моделирование — процесс вычисления компьютерной модели (иначе численной модели) на одном или нескольких вычислительных узлах. Реализует представление объекта, системы, понятия в форме, отличной от реальной, но приближенной к алгоритмическому описанию. Включает набор данных, характеризующих свойства системы и динамику их изменения со временем.

4) Функции моделирования:

Функция воссоздания отсутствующего уголовно-релевантного объекта.

Функция кумулятивно-информационная. Все значимые объекты можно классифицировать и выделять закономерно накапливающиеся признаки. ...

Адаптационная функция. ...

Классификационная функция. ...

Функция алгоритмизации.

5) Адекватность модели — совпадение свойств модели и соответствующих свойств моделируемого объекта. Адекватностью называется совпадение модели моделируемой системы в отношении цели моделирования. Оценка адекватности модели — проверка соответствия модели реальной системе.