program xxx;
var i, n : integer;
a, s : real;
b : array [1..20] of real;
begin
writeln('введите число а=');
readln(a);
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива B:');
for i:=1 to n do
readln(b[i]);
writeln('исходный массив B:');
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if b[i] > a then s:=s+b[i];
writeln('сумма элементов =', s);
readln
end.
В компьютере, например, вся информация систематизирована, поэтому можно все быстро найти. Так же в если в библиотеке систематизировать все книги по алфавиту, то можно будет быстро найти нужное произведение
<span>
program PrimesToN;
var
i, k, n, count: word;
begin
readln(n);
for k := 1 to n do begin
count := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(count)
end;
if count = 2 then write(k, ' ')
end
end.
</span>
<span>1Гб=1024 Мб
1024мб = 1048576 кбайт
512мб = 524288 Кбайт
Для информации:
</span>1Мб=1024Кб
1Кб=1024 байта
<span>1 байт= 8 бит</span>