По x точка 6, по y 2, координаты точки А (6;2)
<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
</span>
var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите ', n, ' чисел');
for i:= 1 to n do read(a[i]);
Writeln('Введите промежуток от X до Y');
readln(x, y);
for i:= x to y do
if (a[i] < 0) then cnt:= cnt + 1;
Write('Отрицательных элементов: ', cnt);
end.
Первое задание.
Как понял, так и сделал.
Текст программы во вложении.
В 1 килобайте- 8 192 бит
в 1 мегабайте-8 288 608 бит
в 1 гигабайте-8 589 934 592 бит