var
a : array [1..100] of integer;
i, next, n : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
next := 1;
for i := 1 to n do
if a[i] <> 0 then
begin
a[next] := a[i];
next := next + 1;
end;
n := next - 1;
for i := 1 to n do
write (a[i], ' ');
end.
В результате работы в N будет лежать новая длина, а после массива - будет лежать всяий мусор (огрызок прежднего массива), но это неважно.
6 Кбайт = 6 * 1024 * 8 бит
Определим, сколько бит занимает один символ сообщения. Для этого разделим это количество бит на количество символов:
(6*1024*8) / 6144 = (6*1024*8) / (6 * 1024) = 8 бит.
Один символ сообщения занимает 8 бит. Для подсчета количества символов, которое можно закодировать этим количеством бит, возведем 2 в степень количества бит:
2^8 = 256
Ответ: 256 символов.
Program math;
var
x, a, t : real;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
t := (sqrt((a-b)*(a-b))+4)/((a-2*b)+1);
writeln('t=', t:10:4);
end.