Писал на скорую руку, так что, программа немного кривая, доработай чуть-чуть:
var a, b, c, i, n, g:integer;
mass: array[1..100000] of integer;
begin
readln(n);
writeln('Введите числа ');
for i:=1 to n do
begin
read(mass[i]);
if mass[i]>100 then b:=b+1;
if mass[i]>100 then g:=mass[i];
write(g, ' ');
end;
writeln('Всего чисел больших ста ', b);
end.
Uses graphabc;
var
i, c: integer;
ar: array[1..5]of integer;
begin
for i := 1 to 5 do
read(ar[i]);
window.IsFixedSize := true;
window.Init(0, 0, 800, 800, clDarkGray);
window.CenterOnScreen;
SetFontSize(32);
for i := 1 to 5 do c := c + ar[i].ToString.Length;
for i := 1 to 7 do writeln;
write(' ':33 - c);
for i := 1 to 5 do
begin
if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
begin
SetFontColor(clred);
write(ar[i]);
end
else if(ar[i] mod 10 = 0) then
begin
SetFontColor(clblue);
write(ar[i]);
end
else if(ar[i] mod 2 <> 0) then
begin
SetFontColor(clyellow);
write(ar[i]);
end
end;
end.
var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.
Ну начну с того что единицы измерения информации делятся как время (Секунды-минуты-часы-дни-месяца-года и т.д.). В единицах измерения информации входят:
1 байт = 8 битов
1 килобайт(кб) = 1024 байта
1 мегабайт(мб) = 1024 килобайта
1 гигабайт(гб) = 1024 мегабайт
1 терабайт(тб) = 1024 гигабайта
Достаточно таки лёгкая тема.