• Здравствуйте, что в этом коде на free pascal считает k?
    program SiberiaBoss;
    var
    a:array[1..100] of integer;
    i,k,n:integer;
    begin
    readln(n);
    randomize;
    for i:=1 to n+1 do
    begin
    a[i]:=random(10);
    if a[i] < i then k:=k+1;
    writeln(a[i]:3);
    end;
    writeln('Itogo ', k);
    end.

Ответы 2

  • Сяп :*
  • кол-во чисел в массиве которые меньше их порядкового номера
    • Автор:

      lidia93
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years