1.создать массив a из 10 целых чисел, принадлежащих промежутку [-50; 50]. вывести полученный массив на экран, подсчитать сумму положительных элементов и количество отрицательных элементов (e (+0); k(-a)) a[i]> 0 a[i]< 0 2. создать массив a из 10 целых чисел от [0; 25). вывести полученный массив на экран, подсчитать количество k a[i]> k 3. создать массив a из 10 целых чисел от [0; 20). вывести полученный массив на экран, вычислить количество элементов массива, значение которых превышает среднее арифметическое элементов этого массива.

1. (a+b+c)& (неa& b& неc)= a& неa& b& неc+b& неa& b& неc+c& неa& b& неc=0+неa& b& неc+0=неa& b& неc2. (a+b)& (неb+a)& (неc+b)=(a& неb+a& a+b& неb+b& a)& (неc+b)= (a& неb+a+0+b& a)& (неc+b)= (a& неb+a+b& a)& (неc+b)=a& неb& неc+a& неb& b+a& неc+a& b+b& a& неc+b& a*b= a& неb& неc+0+a& неc+b& a& неc+a& b+a& b=a& неb& неc+a& неc+b& a& неc+a& b=a& неc(b+1)+ a& b& (неc+1)=a& неc+a& b= a& (неc+b)3. (1+(a+b))+((a+c)& 1)=1+((a+c)& 1)= 1+(a& 1+c& 1)= 1+a+c=14. (a& b& неc)+(a& b& c)+не(a+b)= (a& b& неc)+(a& b& c)+неa& неb= (a& b)& (неc+c)+неa& неb=a& b+неa& неb= a~b5. (a+b+c)& не(a+неb+c)= (a+b+c)& неa& b& неc=a& неa& b& неc+b& неa& b& неc+c& неa& b& неc=0+неa& b& неc+0=неa& b& неc

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.