• Одномерные массивы.

    Найти количество элементов массива, больших квадрата первого элемента этого массива. Если таких элементов нет, выдать сообщение поиск неудачен.

Ответы 1

  • program abc;const  arr: array [1..5] of integer = (5, 5, 26, 5, 30);var   i, x: integer;begin    x := 0;    for i := 2 to length(arr) do   begin      if sqr(arr[1]) < arr[i] then inc(x);    end; if x <> 0 then writeln(x)    else writeln('Поиск неудачен.'); end.
  • Добавить свой ответ

Войти через Google

или

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

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

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