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

155

376

Посмотреть ответы 3

Ответы на вопрос:

1221081056

Информатика

4,4(8 оценок)

это паскаль, если что-то не получится-пиши в сообщения.

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.

Русель

Информатика

4,7(87 оценок)

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.