Ответ: var i,s:integer; a:array[1..15] of integer;beginrandomize;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.
Источник znanija.site
Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10 — Правильный ответ на вопрос найдете ниже
04.01.2020 · 1