Составьте программу которая заполняет массив B[1..16]случайными целыми числами в диапозоне от -10 до 20 и определяет колличество чисел кратных 5 и их
Var B:array[1..16] of integer; k, i: integer; begin for i:=1 to n do begin a[i]:=random(-10,20); if (a[i] mod 5)=0 then begin writeln(a[i]); writeln(i); end; end; end.
ну вроде того.
можешь еще помощь ?
если надо, конечно, только заполнить массив рандомными числами в диапазоне и вывести индексы и числа, кратные пяти.
смотря, с чем.
пиши в личку.
Заполните массив 11 произвольных целыми числами,введя их с клавиатуры и найдите среди их количество и сумму отрицательных
я попросила в личку 0:
как ?
Заполните массив 15 произвольными числами введя их с клавиатуры и вычислите среднее арифметическое отрицательных
вот последняя реши пожалуйсто !