Так, можем найти общие данные, которые нам в любом случае понадобятся для обоих пунктов:
I = 128 Кбайт = 1048576 бит
x = 640 * 320
Всё, теперь начинаем пункт а):
N = 16
N = 
i = 4
Рассчитаем объем одной страницы:
I(1) = x * i = 640 * 320 * 4 = 819200 бит (объем 1 страницы)
Посмотрим сколько страниц влезет:
1048576 / 819200 = 1.28 = 1 страница (округляем в меньшую сторону, так как у нас тупо не хватит места, если мы округлим в большую)
Пункт б):
N = 256
i = 8
I(1) = x * i = 640 * 320 * 8 = 1638400 бит (объём 1 страницы)
1048576 / 1638400 = 0.64 = 0 страниц (опять же, не хватит нашего объема для хранения даже 1 страницы)
program task32595137;
const maks=5; {Сюда вставляем размерность массива}
var
masiv:array[1..maks] of real; {сам массив}
i:integer;
begin
randomize; {встряхиваем генератор случайных чисел}
for i:=1 to maks do begin
masiv[i]:=(random(300)-10)/10; {создаем нам нужные числа, по хорошему надо вынести в отдельную процедуру}
write('i',i,'=',masiv[i],' '); {выводим до сравнения с условием про округление}
if abs(masiv[i])<1 then masiv[i]:=round(masiv[i]); {делаем наше условие}
write('i',i,'=',masiv[i],' '); {печатаем после применения нашего условия про округление.}
end; {for i}
end.
var
i: real;
begin
i := 3;
while i < 6 do
begin
writeln('Привет!');
i := i + 1;
end;
end.
Вывод
Привет!
Привет!
Привет!
ответ 3 раза