Экзамен числами, то есть 0-положительно, 1-отрицательно.
Var
a: array [1..12] of integer;
i: integer;
begin
writeln('Начальный вид массива:');
for i := 1 to 12 do
begin
a[i] := -20 + random(41);
writeln('A[', i:2, ']=', a[i]:3);
end;
writeln('Конечный вид массива:');
for i := 1 to 12 do
begin
if a[i] < 0 then a[i] := -1;
writeln('A[', i:2, ']=', a[i]:3);
end;
readln
<span>end.</span>
Изображение 1400х1000х65536 цветов занимает 1400000*2 или 2800000 байт, то есть 3 мб видеопамяти должно хватить на одно такое изображение.
Есть сомнения, что все единицы измерения указаны точно.
Но если все верно, тогда:
1 К/бит = 1000 бит
1 Байт = 8 бит
1 Кбайт = 1024 Байт
32 Кбит/с * 15 с = 480 Кбит *1000 = 480000 бит / 8 = 60000 Байт - размер текстового файла
8 байт/символ * 48 симв/страницу * х страниц = 60000 байт
х = 60000/48/8 = 156,25 страниц содержал переданный текст