Vara,b,c,i:longint;
m:array[1..1000] of longint;
Begin
c:=0;
readln(a);
readln(b);
for i:=1 to b do
begin
read(m[i+c]);
if (m[i+c]<0) and (c=0) then
begin
m[i+1]:=a;
c:=1;
end;
end;
for i:=1 to b+1 do
write(m[i],' ');
<span>End.</span>
1. Истина(true)
2. Истина(true)
3. Ложь(false)
4. Ложь(false)
5. Ложь(false)
6. Истина(true)
7. Истина(true)
8. Истина(true)
N=64 i=6 бит/1пикс
64*64*6/2^13=2^6*2^6*2*3/2^13=2^13*3/2^13=3 Кб
Сделай её в программе, в которой вам сказал учитель, нажми в меню программы файл, потом нажми сохранить как и выбери место (флешку), где нужно сохранить файл