//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

0 0

4 года назад

Прочитать ещё 2 ответа

Запишите 32-битный IP-адрес в виде четырех десятичных чисел,разделенных точками: 11001100100110001011111001000111

Uta84 [354]

Каждые 8 разрядов данного адреса нужно перевести в десятичную систему счисления:
<span>11001100(2) = 204(10)
10011000(2) = 152(10)
10111110(2) = 190(10)
01000111(2) = 71(10)
204.152.190.71</span>

0 0

4 года назад

помогите сделать в паскале! Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования эффективный алгор

Константин 13 [7]

Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>

0 0

4 года назад

Существенным свойством называется свойство, которое?

Ssvet [502]

Существенные и несущественные свойства математических объектов раскрываются в процессе определения понятий математики. Множество существенных свойств составляют содержание понятия.

0 0

4 года назад