1. а=5 (считает слова)
2. d=1 (считает дни)
3. если D <= 10,
4. то перейти к п. 4,
5. иначе перейти к п.6
6. а = а + 2 d = d + 1
7. вывод а
<span>8. конец</span>
Этих цифр невероятно много. Я просто не сумею столько чисел написать! так что, напишу только те которые смогу.
1023, 1024, 1025, 1026, 1027, 1028, 1029,
1032, 1034, 1035, 1036, 1037, 1038, 1039,
1042, 1043, 1045, 1046, 1047, 1048, 1049,
1052, 1053, 1054, 1056, 1057, 1058, 1059,
1062, 1063, 1064, 1065, 1067, 1068, 1069,
1072, 1073, 1074, 1075, 1076, 1078, 1079,
1082, 1083, 1084, 1085, 1086, 1087, 1089,
1092, 1093, 1094, 1095, 1096, 1097, 1098
Ответ:
Калибри единственная птица которая может летать задом наперед
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.
Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1
16 -1 -14 1 0
Во второй половине отрицательных: 2