Question

Составить программу, которая подсчитывает сумму элементов массива, больших 50 и меньших или равных 80.

Answer 1

var

 A: array [1..10] of Integer;

 i, s: Integer;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (100);

   Write (A [i], ' ');

 end;

 for i := Low (A) to High (A) do begin

   if (A [i] > 50) and (A [i] <= 80) then

     s := s + A [i];

 end;

 WriteLn;

 WriteLn ('Сумма элементов массива = ', s);

end.