Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива а: ');
for i: =1 to 10 do
readln(a[i]);
writeln('исходный массив а: ');
write(a[i]);
k: =0;
for i: =1 to 9 do
if a[i]< > a[10] then k: =k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
(неясно-пиши в личку)
пщояк 17 27 16 33 17
нщёп 15 27 7 17
v=i*k (объем=глубина цвета * кол-во точек)
i=10, т.к. 1024=2¹⁰
k=100*(15*18)=27000 точек
v=10*27000=270000 бит = 33 килобайт (1 килобайт = 8192 бит)
Популярные вопросы