Pascal
Напишите программу, которая в последовательности натуральных чисел определяет

количество введенных чисел до ввода числа 100

Программа получает на вход натуральные числа, введенные с клавиатуры. Количество

введенных чисел не известно.

Последовательность чисел заканчивается 100

(число 100─ признак окончания ввода, не входит в последовательность).

program fantscrin;

  const n = 11;

  var a: array [1..n] of integer;

      i,s,p: integer;

begin

  for i: =1 to n do

    a[i]: = random(8)+4;

  for i: =1 to n do

    write(a[i], '   ');

  s: =0;

  p: =1;

  for i: =1 to n do

    if (i mod 2 = 0) then p: =p*a[i]

                    else s: =s+a[i];  

  writeln('');

  writeln('сумма = ',s);

  writeln('произведение = ',p);

end.

Интернет - это Всемирная паутина, глобальное информационное пространство. История появления и развития этой мировой паутины яркая и необычная, ведь уже через 10 лет после своего появления она завоевала множество организаций и стран, которые стали активно пользоваться сетью для работы. Вначале интернет служил исключительно группам исследователей и ученых, вскоре в эту группу втиснулись военные, а после – бизнесмены. После этого популярность интернета быстро разрослась. Пользователей соблазнила быстрота передачи информации, дешевая глобальная связь, множество легких и доступных программ, уникальная база данных и т.д. Естественно, это удобно для фирм, у которых есть филиалы в разных точках земного шара, для транснациональных корпораций, а также для управленческих структур.