1-3
2-2
3-1
жду лучший ответ)
3)0+7=7
4)7+7=14
5)14+7=21
6)21+7=28
7)28+7=35
8)35+7=42
Стандартно отрицательные числа хранятся в памяти в дополнительном коде.
-3464 = -(2048 + 1024 + 256 + 128 + 8) = -(2^11 + 2^10 + 2^8 + 2^7 + 2^3) = 1|000 1101 1000 1000 (в прямом коде) = 1|111 0010 0111 0111 (в обратном коде) + 1 = 1|111 0010 0111 1000 (в дополнителтном коде)
<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)
Program n1;
const n=5;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do if( i mod 2=0) then a[i]:=0
else a[i]:=1;
for i:=1 to n do writeln(a[i]);
end.
2)
Program n2;
const n=25;
var a: array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(5)+1;
if a[i]<3 then k:=k+1;
end;
writeln(k);
end.
3)
Program n3;
const n=5;
var a: array [1..n] of integer;
i,S: integer;
begin
S:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]<0) then S:=S+a[i];
writeln(S);
end.