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.
Вт... Это Паскаль, если что-то не получится-пиши в сообщения.
var
a: array [1..10] of real;
i,k,c:integer;
begin
readln(k);
for i:=0 to k do
begin
read(a[i]);
if (a[i]<0) then
if (a[i]*a[i]>100) then
inc(c);
end;
if(c>0) then
writeln ("Элементы найдены");
else
writeln ("Элементы не найдены");
readln();
end.