Ввести целое число N и массив из N целых чисел .Определить среднее арифметическое...

Question

Ввести целое число N и массив из N целых чисел .Определить среднее арифметическое элементов массива НЕ кратных 3. ПАСКАЛЬ

Comments

Что значит ввести целое число и массив?

---

Написать программу, которая создает одномерный массив из N целых чисел. Количество чисел в массиве и сами числа вводятся с клавиатуры.#include using namespace std;int main(int argc, char *argv[]){ int N,i; cout << "Vvedi kol-vo elementov: "; cin >> N; int a[N]; for(i=0;i{ cout << "Vvod a[" << i << "] elementa: "; cin >> a[i]; } for(i=0;i{ cout << "a[" << i << "]=" << a[i] << endl; } cout << "Chetnie:" << endl; for(i=0;i{ if((a[i]%2) == 0) { cout << "a[" << i << "]=" << a[i] << endl; } }}

---

1) #include < iostream > был сожран "мега_крутой_защитой_от_xss". 2) Коли уж "int main()", то должно быть по крайней мере "return 0;", либо пили "void main()" 3) Зачем аргументы в main, если ты не принимаешь оттуда значения?

Answer 1

// PascalABC.NET 3.3.5

begin

 var n:=ReadInteger('n=');

 var a:=ReadArrInteger('Вводите массив:',n);

 Writeln(a.Where(x->(x mod 3<>0)).Average);

end.

Пример:

n= 5

Вводите массив: 20 15 11 45 32

21