Один профессор философии написал статью. В этой статье не было изображений, таблиц, схем. Только текст. Поэтому статья имела неб

Любоє из 10-и
вот и всьо

 Найдем мощность алфавита: N =33 русских прописных буквы + 33 русских строчных буквы + 21 специальный знак = 87 символов. 2) Найдем информационный объем одного символа: i =log 2 87=6,4 бит. 3) Найдем объем всего текста: 6,4 бит*3000=19140 бит = 2392,5 байт = 2,3 Кбайт.

Блок-схема - в прилагаемом файле.

Запиши нормально задание 

Var
  A : array of real;
  i, N, num : integer;
begin
  write('Количество чисел: ');
  readln(N);
  SetLength(A, N);
  for i := 0 to N - 1 do
  begin
    write('A[', i + 1, '] = ');
    readln(A[i]);
  end;
  num := 0;
  for i := 0 to N - 1 do
    if Sqr(A[i]) < 10 then
      Inc(num);
  writeln('Таких чисел: ', num);
end.