-
В заданной последовательности целых чисел определить количество и сумму элементов, кратных числу 10.
-
В заданном массиве заменить нулём наибольший элемент
Во второй задаче понимаю только, как узнать наибольший элемент, а как заменить его нулём, не знаю. В 1 не понимаю условия.
if (a[i] mod 10 = 0) then begin s := s+a[i]; n := n + 1; end;
Цикл думаю уже добавите.