(-53 ; 67)
Var X, Y, Z : Integer;
BeginY:= 1;RepeatX:= X-12;Z:= Z+16;Y:= Y+1;Until Y = 5;X:= X-3;Z:= Z+1;X:= X-2;Z:= Z+2;Writeln('X= ', X, ' | Z= ', Z);End.
1) program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin
for i:=1 to n do
if B[i] mod 2=0 then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.
2) </span>program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin for i:=1 to n do
if (B[i] mod 2=0) and (i mod 2<>0)
then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.</span>
В 718килобайт=735232байт, а байт самая маленькая единица измерения информации.
в одном килобайте=1024 байт
1-4
2-2
3-3
4-1
я надеюсь что так.прости если неправильно