Question

Составьте программу ,которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел, непревышающих 10. Pascal ABC

Answer 1

const n=40;

var

 i,sum:integer;

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

begin

 sum:=0;

 for i:=1 to n do

   begin

     a[i]:=random(21);

     write(a[i]:4);

     if a[i]<=10 then  

       sum:=sum+a[i];

   end;

 writeln;

 write('Sum: ',sum);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!