Question

Создать массив А из десяти целых
чисел, принадлежащих промежутку [0;15). Вывести
полученный массив на экран. Посчитать s - сумму
элементов массива, значение которых меньше 5.
язык программирования - паскаль

Answer 1

var

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

 sum,i:integer;

begin

 sum:=0;

 for i:=1 to 10 do

   begin

     a[i]:=random(15);

     write(a[i],' ');

     if a[i]<5 then

       sum:=sum+a[i];

   end;

 writeln;

 writeln('Sum: ',sum);

end.

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