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

Help!!!!Please!!!! Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10
Гость
Ответ(ы) на вопрос:
Гость
a:array[1..20] of integer; k, i:integer; begin randomize; for i:=1 to 15 do a[i]:=random(21); for i:=1 to 15 do if a[i]<10 then k:=k+1; for i:=1 to 15 do write(a[i],' '); writeln(k); readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы