Единица измерения, Бит, Байт, КБ(КилоБайт), МБ(МегаБайт), ГБ(ГигаБайт), ТБ(ТераБайт)
var a:array of integer;
i,n,k:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
a:=new integer[n];
write ('Массив: ');
for i:=0 to n-1 do
begin
a[i]:=random(199)-99;
if a[i] < 0 then k:=k+1;
write (a[i]:5);
end;
writeln;
write ('Количество отрицательных элементов ',k)
end.
Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>
Диаграмма и условное форматирование является полезным инструментом для визуализации числовых данных.