5 страниц
84000бит=10500байт
1 символ =1байт
30*70=2100 байт - 1 страница
10500/2100 = 5 страниц
но... если учесть, что перевод строки занимает 2 байта... вычесления будут немного другими.
(70+2)*30=2160 1 страница (вместо 2100
//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
1. Напишем полную программу для Pascal:
var a,b,d: Integer;
begin
a:=10;
b:=6;
a:=a+b;
b:=a mod 3;
d:=a-b;
writeln(d);
end.
2. Получим ответ в программе Pascal. (15).
d = 15.
Ответ: d = 15.