В байте 8 бит, в килобайте 1024 байта, в МБ 1024 КБ и т.д.
614400 бит / 8 = 76800 байт
76800 байт / 1024 = 75 килобайт
75 / 1024 = 0.073 МБ (приблизительно)
614400 бит 76800 байт 75 КБ 0.073 МБ
4194304 бит 524288 байт 512 КБ 0.5 МБ
2097152 бит 262144 байт 256 КБ 0.25 МБ
33554432 бит 4194304 байт 4096 КБ 4 МБ
(Вибачте, що не українською)
var a,b: array[1..10] of Integer;
i,n: integer;
begin
n:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
begin
if a[i]<>0 then
begin
b[n]:=a[i];
inc(n);
end;
end;
if n=1 then writeln('Элементов нет') else
for i:=1 to n-1 do writeln(b[i]);
end.
<span><span /><span><span>
Имя
Возраст
Хобби
</span><span>
Оля
13
пение
</span><span>
Петя
14
баскетбол
</span><span>
Вася
13
хоккей
</span><span>
Катя
15
танцы
</span><span>
Сережа
11
футбол
</span><span>
Коля
11
<span>баскетбол
и оформить в эксель</span></span></span></span>
<em>Проверено на fpc 3.0.0 </em>
const
m=6; // строк
n=9; // столбцов
var
a:array[1..m,1..n] of integer;
i,j,k1,k2,s,k:integer;
begin
Writeln('Введите границы диапазона: '); Read(k1,k2);
Randomize;
s:=0; k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99; // [-99;99]
Write(a[i,j]:4);
if (a[i,j]>=k1) and (a[i,j]<=k2) then begin
Inc(k); s:=s+a[i,j]
end
end;
Writeln
end;
Writeln('Отобрано элементов: ',k,', их сумма равна ',s)
end.
<u>Пример</u>
Введите границы диапазона:
-20 55
-2 -52 -11 -12 70 -15 90 -51 75
-54 -92 32 54 -72 -24 -40 -37 -20
0 -14 -79 -1 -39 -34 39 47 34
-91 -98 -68 -16 -56 -55 97 66 59
-48 -67 -34 92 -77 12 -67 -23 -90
75 85 65 -98 -58 -53 -6 34 33
Отобрано элементов: 18, их сумма равна 188