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

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  </p>

     k:=k+a[i];

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

end.