2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 26 |
|
1 |
|
Найдите среднее арифметическое всех четных элементов массива07.11.2012, 12:48. Показов 16059. Ответов 5
Задан массив из 10 целых чисел. Найдите среднее арифметическое всех четных элементов массива. Хелп плиз
0 |
Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060 |
||||
07.11.2012, 12:51 |
2 |
|||
1 |
Masox 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 26 |
||||
07.11.2012, 13:09 [ТС] |
3 |
|||
пишет что не правильно и выдает ошибку 106,что делать?
0 |
3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060 |
|
07.11.2012, 13:12 |
4 |
выдает ошибку 106 В какой строчке?
1 |
2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 26 |
|
07.11.2012, 13:18 [ТС] |
5 |
В какой строчке? а все четко,спасибо=))
0 |
3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060 |
|
07.11.2012, 13:19 |
6 |
Тут не может быть этой ошибки
1 |
let x = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20];
for(let i = 0;i<x.length; i++){
if(i % 2 == 0){
console.log(i/3)//не знаю правильно ли???
}
}
задан 29 янв 2020 в 22:28
VahanVahan
4832 серебряных знака14 бронзовых знаков
1
let x = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20];
var count = 0;
var summ = 0;
for(let i = 0;i<x.length; i++){
if(x[i] % 2 == 0){ //Тут берём число и проверяем чётное ли. i у Вас это ключ
count += 1; // Если чётное считаем сколько чётных цифр
summ += x[i]; // Если чётно считаем сумму чётных
}
}
var itog = summ / count; // Выводим среднее - делим сумму на количество.
console.log(itog);
ответ дан 29 янв 2020 в 22:41
Denis640KbDenis640Kb
14k5 золотых знаков21 серебряный знак45 бронзовых знаков
Формулировка задачи:
Задан массив из 10 целых чисел. Найдите среднее арифметическое всех четных элементов массива.
Хелп плиз
Код к задаче: «Найдите среднее арифметическое всех четных элементов массива»
textual
Var x: Array[1..10] of Integer; i,k: Integer; s: Longint; BEGIN Writeln('Введите массив:'); For i:=1 to 10 do begin Readln(x[i]); If x[i] mod 2=0 Then begin s:=s+x[i]; k:=k+1; end; end; Writeln('Среднее арифметическое четных = ',s/k:5:2); Readln END.
Полезно ли:
13 голосов , оценка 4.231 из 5
drtusingh395
Вопрос по информатике:
Задан массив из 10 целых чисел. Найдите среднее арифметическое всех четных элементов массива. Пожалуйста, составьте программу в паскале:)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
Ответы и объяснения 1
ghaidedero575
Задачка в один оператор)))
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
Writeln(ArrRandom(10,1,99).Println.Where(x->x mod 2=0).Average)
end.
Тестовое решение:
96 42 79 85 16 22 50 62 54 40
47.75
«Школьный подход» (видимо, короткому решению у нас не учат)
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
const
n=10;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
s:=0;
k:=0;
Randomize;
for i:=1 to n do begin
a[i]:=Random(99)+1;
Write(a[i],’ ‘);
if a[i] mod 2 = 0 then begin
s:=s+a[i];
Inc(k)
end
end;
Writeln;
Writeln(s/k)
end.
Тестовое решение:
22 22 58 41 54 80 71 65 47 99
47.2
Знаете ответ? Поделитесь им!
Гость ?
Как написать хороший ответ?
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете
правильный ответ; - Писать подробно, чтобы ответ был исчерпывающий и не
побуждал на дополнительные вопросы к нему; - Писать без грамматических, орфографических и
пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся
уникальные и личные объяснения; - Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не
знаю» и так далее; - Использовать мат — это неуважительно по отношению к
пользователям; - Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует?
Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие
вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи —
смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Program NoName;
var num: integer;
x, y: real;
Begin
readln(num);
if (num>=10)and(num<=99)then
begin
x := trunc(num/10);
y := (num/10-trunc(num/10))*10;
writeln(x+y);
writeln(x*y);
writeln(y*10+x);
end;
end.
Ну вот так как-то…
Ответ:
Мне кажется это больше логическая задача. Если я правильно понял то:
1.2.2) 4)
1.2.3) 2)
1.2.4) 1) или 3)
1.2.5) 1)
Решение в прикрепленном файле.
Ответ:
1)
10010100₂ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 148₁₀
148₁₀ = 4*8⁰ + 2*8¹ + 2*8² = 224₈
148₁₀ = 4*16⁰ + 9*16¹ = 94₁₆
2)
300₈ = 0*8⁰ + 0*8¹ + 3*8² = 192₁₀
192₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11000000₂
192₁₀ = 0*16⁰ + 12*16¹ = C0₁₆
3)
172₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10101100₂
172₁₀ = 4*8⁰ + 5*8¹ + 2*8² = 254₈
172₁₀ = 12*16⁰ + 10*16¹ = AC₁₆
4)
A5₁₆ = 5*16⁰ + A*16¹ = 165₁₀
165₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100101₂
165₁₀ = 5*8⁰ + 4*8¹ + 2*8² = 245₈
5)
10111000₂ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 184₁₀
10001110₂ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 142₁₀
184₁₀ + 142₁₀ = 326₁₀
326₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ + 0*2⁷ + 1*2⁸ = 101000110₂