0,5 Кбайт = 1024 / 2 = 512 байт
512 байт = 512 * 8 = 4096 бит
4096 / 1024 = 4 бита
Один символ - 4 бита.
1 кубик - равен 1г
Мы запомним синий цвет
Вот такое вот количество
program massiv;
var
a:array[1..10] of integer;
i,b,c : integer;
begin
writeln ('posledovatelno vedity elementi massiva (10 chisel)');
for i:=1 to 10 do
readln(a[i]);
b:=a[1];
for i:=1 to 10 do
begin
if a[i]>b then
b:=a[i];
end;
c:=a[1];
for i:=1 to 10 do
begin
if a[i]<c then
c:=a[i];
end;
writeln('raznost mesdu naibolshim i naimenshim elementom massiva =',b-c);
readln;
end.
p.s если нужны пояснения то в личку
тебе можуть зламати хакери і шахраї,а ще тебе ображатимуть :(