Решить на дом: 1) найти сумму элементов массива, больших данного числа b ( b вводится с клавиатуры) 2) есть ли в данном массиве элементы равные заданному числу? если есть, то вывести номер одного из них.

Const   n = 15; var   x: array[1..n] of integer;   i, b, s: integer; begin   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       x[i] : = random(50);       write(x[i]: 3);   end;   writeln;   write('введите значение b -> '); readln(b);   s: =0;   for i : = 1 to n do if x[i]> b then s: =s+b;   writeln('сумма элементов, больших ',b,', равна ',s) end. тестовое решение: элементы массива   8 46 29 23 21 14 14  8 20 26 15 49 44 35 33 введите значение b -> 30 сумма элементов, больших 30, равна 150 const   n = 15; var   x: array[1..n] of integer;   i, b: integer; begin   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       x[i] : = random(50);       write(x[i]: 3);   end;   writeln;   write('введите значение b -> '); readln(b);   i: =1;   while (x[i]< > b) and (i< n) do inc(i);   if x[i]=b then writeln('x[',i,']=',b)   else writeln('нет элементов со значением, равным ',b) end. тестовое решение: элементы массива   24  6 28 46 25  9 12 47 34  0 20 47 15 10 34 введите значение b -> 20 x[11]=20

1)  в коротком варианте инертные газы не выделены в особую систему, нет предсказанных элементов. в длинном, наоборот 2)в коротком варианте  iv-vii периоды занимают по 2 строчки в длинном варианте    главные и побочные подгруппы располагаются в разных столбцах.  iv-vii периоды занимают одну строчку.  лантаноиды и актиноиды вынесены из общей таблицы. короткая форма до сих пор используется в некоторых школьных учебниках по , а вот длинная используется за рубежом уже довольно широко.

Program name; var i,n,x,summa,count: integer; nechet: boolean; beginwriteln('vvedite n: '); readln(n); //получаем nsumma: =0; count: =0; i: =1; if(n  mod  2 = 1) then nechet : = true else nechet : = false; //проверяем четное число или нетwhile i< n do begin//пока число меньше nif(nechet) then//если число нечентноеbeginsumma: =summa+i*i*i; //прибавляем к сумме куб этого числаendelse//если число четноеbeginsumma: =summa+i*i; //прибавляем квадрат числаend; i: =i+1; //прибавляем число на 1end; writeln(' summa: ', summa); //выводим суммуreadln(); end.