Предмет: Информатика,
автор: Tawer331
Ввести целое число N и массив из N целых чисел .Определить среднее арифметическое элементов массива НЕ кратных 3. ПАСКАЛЬ
vadimnik0:
Что значит ввести целое число и массив?
Написать программу, которая создает одномерный массив из 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;
}
}
}
#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, если ты не принимаешь оттуда значения?
Ответы
Автор ответа:
0
// 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
Похожие вопросы
Предмет: Алгебра,
автор: evgkazkov
Предмет: Английский язык,
автор: freze16
Предмет: Обществознание,
автор: haharolop567
Предмет: Алгебра,
автор: kykyma
Предмет: Алгебра,
автор: anastasia200012