//Pascal ABC.NET 3.1 сборка 1256
Const
n=5;
begin
var a:=ReadArrInteger(n);
var Sra:=a.where(x -> x>0).Count;
writeln('Положительных:',Sra);
var Sg:=a.Where(x -> x<0).Count;
writeln('Отрицательных:',Sg);
end.
Пример ввода:
-1
1
-2
2
3
Пример вывода:
Положительных:3
Отрицательных:2
<span>1.
1024 байт = 1 Кбайт < 1 Мбайт > 1024 байт < 1 Гбайт
2.
2^6 = 64
3.
</span><span> 1) 3 Кбита = 3000 бит = 375 байт
2) </span>3,48046875<span> Кбайт = 3564 байт = 28512 бит
3) 1,5 Гбайт = 1536 Мбайт =</span>1572864 Кбайт =1610612736 байт =<span>12884901888</span> бит
Программа:
1)
var i: integer;
begin
for i:=1 to 1000 div (3*5) do
write(i*3*5,' ');
end.
Результат:
15 30 45 60 75 90 105 120 135 150 165 180 195 210 225 240 255 270 285 300 315 330 345 360 375 390 405 420 435 450 465 480 495 510 525 540 555 570 585 600 615 630 645 660 675 690 705 720 735 750 765 780 795 810 825 840 855 870 885 900 915 930 945 960 975 990
Программа:
2)
var n,i,j: integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to 10 do write(j,' ');
writeln;
end;
end.
Пример:
5
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
Хранить нужные объекты, упорядковывать информацию.