Вместе с інформаційна панель може відображати повідомлення що складаються з 10 цифр, причому кожна цифра може бути трьох
кольорів. Цифри і кольори можуть повторюватися. Контролер панелі
виділяє під кожне повідомення однакове і мінімальне можливе ціле
число байт. При цьому використовується посимвольне кодування, всі
символи повідомлення кодуються однаковим і мінімально можливим ціле число байт. при цьому використовується посимвольне кодування,всі символи повідомлення кодуються однаковим мінімально можливим кількістю біт.вкажіть об'єм пам'яті в байтах для зберігання 100 повідомлень
2)var a:array [1..10] of integer; i,max,index:integer;begin for i:=1 to 10 do begin write ('A[',i,'] = '); readln (a[i]); end; max:=a[1]; index:=1; for i:=2 to 10 do if a[i] > max then begin max:=a[i]; index:=i; end; writeln ('Max: ',max,'.Index: ',index); readln;end.
3)var a:array [1..10] of integer; max,min,i,temp:integer;begin randomize; for i:=1 to 10 do begin a[i]:=random(50); write (a[i],' '); end; writeln; max:=1; min:=1; for i:=2 to 10 do if a[i] > a[max] then max:=i else if a[i] < min then min:=i; writeln ('Max: ',a[max]); writeln ('Min: ',a[min]); temp:=a[min]; a[min]:=a[max]; a[max]:=temp; for i:=1 to 10 do write (a[i],' ');end.Не знаю- правильно ли?