Pascal Проверить присутствие в массиве вещественных чисел…

Question

Pascal Проверить присутствие в массиве вещественных чисел отрицательных элементов, квадрат которых больше 100. Ограничения: — числоэлементов в матрице не более 10-ти

Answer 1

78

vitalii-foto

07 сентября 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: