Как найти среднее арифметическое всех четных элементов

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.



1



Masox

2 / 2 / 0

Регистрация: 07.11.2012

Сообщений: 26

07.11.2012, 13:09

 [ТС]

3

Цитата
Сообщение от Kodzaev
Посмотреть сообщение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.

пишет что не правильно и выдает ошибку 106,что делать?



0



3030 / 1916 / 1649

Регистрация: 30.04.2011

Сообщений: 3,060

07.11.2012, 13:12

4

Цитата
Сообщение от Masox
Посмотреть сообщение

выдает ошибку 106

В какой строчке?



1



2 / 2 / 0

Регистрация: 07.11.2012

Сообщений: 26

07.11.2012, 13:18

 [ТС]

5

Цитата
Сообщение от Kodzaev
Посмотреть сообщение

В какой строчке?

а все четко,спасибо=))



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

Vahan's user avatar

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

Denis640Kb's user avatar

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

drtusingh395

Вопрос по информатике:

Задан массив из 10 целых чисел. Найдите среднее арифметическое всех четных элементов массива. Пожалуйста, составьте программу в паскале:)

Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?

Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!

Ответы и объяснения 1

ghaidedero575

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₂

Понравилась статья? Поделить с друзьями:
  • Www call of duty com black ops status как исправить ошибку входа в зомби
  • Мультик как мужик клад нашел
  • Как составить стратегию фирмы
  • Как найти ctg тригонометрия
  • Как найти свой блонд