Задание:
Pascal Проверить присутствие в массиве вещественных чисел отрицательных элементов, квадрат которых больше 100. Ограничения: — числоэлементов в матрице не более 10-ти
Решение:
Program Pr1; uses crt; var mas: array[1… 10] of real; i,n,b: integer; Beginclrscr; readln (n); for i: =1 to n do readln (mas[i]); for i: =1 to n do if (mas[i]<0) and (frac (mas[i]) <>0) and (sqr (mas[i]) >100) then b: =b+1; if b>0 then writeln ('Элементы найдены') else writeln ('Элементы не найдены'); end.
Знаете другой ответ?