Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Pascal

Проверить присутствие в массиве вещественных чисел отрицательных элементов, квадрат которых больше 100.

Ограничения:

-число элементов в матрице не более 10-ти

Порядок ввода исходных данных:

-число элементов в массиве

-элементы массива

Порядок вывода результатов:

-сообщение Элементы найдены или Элементы не найдены.

Ответ оставил Гость

Program Pr1;
uses crt;
var mas:array[1..10] of real;
i,n,b:integer;
Begin
clrscr;
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.