На 256 символьный алфавит необходимо 2^n=256, n=8 бит, или 1 байт.
4096 символов * 1 байт = 4096 байт
4096 / 1024 = 4 Кбайт
Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.
Рдчшдпчевжмлатж Лев адевщнгаг пгрзщнза. Вдпсюрвн. Ангеле
1) "Дарья" (первая согласная и последняя гласная).
2) Считаем: 2, 4, 4, нужно ещё одна 2 => вариант 4) C1/3.
Var
a: array[1..100] of integer;
i, n: integer;
begin
n := 50;
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(60);
write(a[i], ' ');
end;
writeln();
{изменение элементов}
writeln('Новые значения:');
for i := 1 to n do
begin
if a[i] mod 4 = 0 then
a[i] := 0;
write(a[i], ' ');
end;
end.