var a, i, count, s: integer; begin repeat if(i = 100) then break; readln(a); if(abs(a) > 300) then begin writeln('число по модулю не может быть > 300.'); continue end else if(a mod 9 = 0) and (a < > 0) then begin inc(count); s : = s + a; end; if(a < > 0) then inc(i); until(a = 0); writeln('среднее арифметическое: ', s / count); end.
Поделитесь своими знаниями, ответьте на вопрос:
Решить . 1. задан массив целых чисел. вычислить суммы нечетных и отрицательных элементов. 2.задана матрица целых чисел. вычислить сумму элементов расположенных на главной и побочной диагоналях. и это на с++