Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]....

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]<br>   end;
writeln('Сумма ',s)
end.