Question

написать программы:
1.определить количество элементов массива >50

2. найти сумму элементов массива >10, но <30

Answer 1

P.s Язык  Pascal

1)

program massive;

const

 n=5;

var

 a: array [1..n] of integer;

 i, k: integer;

begin

 randomize;

 k:=0;

 for i:=1 to n do

   begin

     a[i]:=random(100);

     write(a[i]:4);

   end;

 writeln;

 for i:=1 to n do  

   if a[i]>50 then  

     k:=k+1;

     writeln('Чисел больших 50: ',k)

end.

2)

program massive;

const

 n=5;

var

 a: array [1..n] of integer;

 i,k:integer;

begin

 randomize;

 k:=0;

 for i:=1 to n do

   begin

     a[i]:=random(100);

     write(a[i]:4);

   end;

 writeln;

 for i:=1 to n do  

   if (a[i]>10) and (a[i]<30) then  

     k:=k+a[i];

     writeln('Ссумма чисел принадлежащих промежутку (10;30)= ',k);

end.