Program mm; var a:array[1..12] of integer; begin for i:=1 to 12 do begin а[1]:=5; а[2]:=4; а[3]:=-3; а[4]:=1; а[5]:=0; а[6]:=-4; а[7]:=(у тебя не написано); а[8]=25; а[9]=-8; a[10]=-5; а[11]=-17; а[12]=-1; end; writeln('Вот исходный массив'); for i:=1 to 12 do writeln('A[',i,']=',a[i]); for i:=1 to 12 do begin if (A[i]<0) then a[i]:=1; if (a[i]>0) then a[i]:=-5; end; writeln('Вот полученный массив'); for i:=1 to 12 do writeln('A[',i,']=',a[i]); writeln(' Введите 12 чисел'); for i:=1 to 12 do readln(A[i]); (это доп оценка) end.
41 байт
Объяснение:
Данные на карте = Код + Номер + Доп.Информация (25 байт)
Код: (1 код содержит 15 знаков)
Включает латинские буквы (большие и строчные) = 26×2, десятичные цифры = 10, и особые знаки из комплекта @#$%^&*() = 9
N = 26 × 2 + 10 + 9 = 72
N = 2^i
64 < 72 < 128
2^6 < 72 < 2^7 (берём большее)
i = 7 бит
1 код = 15 × 7 = 105 бит = 105 ÷ 8 = 13,125 (округляем в большую сторону) = 14 байт
Номер:
N = 1000
512 < 1000 < 1024
i = 10 бит
1 номер = 10 ÷ 8 = 1,25 (округляем в большую сторону) = 2 байта
Данные на карте = 14 байт (код) + 2 байта (номер) + 25 байт (доп.инф.) = 41 байт
ответ: 41 байт
var a:array[1..12] of integer;
begin
for i:=1 to 12 do begin
а[1]:=5;
а[2]:=4;
а[3]:=-3;
а[4]:=1;
а[5]:=0;
а[6]:=-4;
а[7]:=(у тебя не написано);
а[8]=25;
а[9]=-8;
a[10]=-5;
а[11]=-17;
а[12]=-1;
end;
writeln('Вот исходный массив');
for i:=1 to 12 do writeln('A[',i,']=',a[i]);
for i:=1 to 12 do begin
if (A[i]<0) then a[i]:=1;
if (a[i]>0) then a[i]:=-5;
end;
writeln('Вот полученный массив');
for i:=1 to 12 do writeln('A[',i,']=',a[i]);
writeln(' Введите 12 чисел');
for i:=1 to 12 do readln(A[i]); (это доп оценка)
end.