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

Question

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

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

Comments

Pascal?

---

да

Answer 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.

Comments

спасибо как оказалось не так уж и сложно было мог бы и сам сделать)

---

ошибка 67 предполагается строковое выражение