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

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

 

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.

 

 

 

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.

Уменя это уже было я из тетрадки перепишу   2) 100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268 3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке)137 / 2 = 68 ( остаток 1)68 / 2 = 34 (остаток 0)34 / 2 = 17 (остаток 0)17 / 2 = 8 (остаток 1)8 / 2 = 4 (0)4 / 2 = 2 (0)2 / 2 = 1 (0)теперь надо записать остатки в обратном порядке  = 100010014) как я понял 8 и 16 это систему счисления, если да то: а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105б) 2с = 2 * 16 + 12(с) = 32 + 12 = 44ну блин как то так наверное          

Рассмотрим назначение переменных на примере. пусть задано число 34561. тогда n=34651 (введённое число сохраняется в переменной n). в цикле значение n меняется так: 3465, 346, 34, 3, 0. переменная c используется при получении цифр числа, т.е. в этой переменной последовательно будут значения 1, 5, 6, 4, 3. в переменной mn сохраняется минимальная цифра, стоящая на чётном месте. значения этой переменной: 9 (начальное значение), 6, 4. переменная i используется для определения места (чётное или нечётное) цифры числа. начальное значение i=0, затем i в цикле увеличивается на 1: 1, 2, 3, 4, 5.