Question

Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10

Answer 1

var
   i,s:integer;
   a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do
   begin  a[i]:=random(21);
   write(a[i],' ');
   if a[i]<=10 then s:=s+a[i]
   end;
writeln('Сумма ',s)
end.