М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
zulaykho001
zulaykho001
12.11.2022 06:43 •  Информатика

Дан одномерный массив.найти сумму чисел меньше 8

👇
Ответ:
gh4477
gh4477
12.11.2022
Const
  n = 16;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  s := 0;
  for i := 1 to n do
  begin
    a[i] := Random(20);
    Write(a[i]:3);
    if a[i]<8 then s:=s+a[i]
  end;
  Writeln;
  Writeln('Сумма элементов, меньших 8, равна ',s)
end.

Тестовое решение:
Элементы массива
  8  5 12 10  4  7 11 18 13 17 18  2  5  1  3 16
Сумма элементов, меньших 8, равна 27
4,6(91 оценок)
Открыть все ответы
Ответ:
Glebbb15
Glebbb15
12.11.2022

x

2

+

y

2

=

16

...

...

...

...

...

...

.

.

(

1

)

x + y = 4 (2)

rearrange (2) to y = 4 - x (could do x = 4 - y )

substitute y = 4 - x into (1)

hence:  

x

2

+

(

4

x

)

2

=

16

x

2

+

16

8

x

+

x

2

=

16

and  

2

x

2

8

x

+

16

16

=

0

2

x

2

8

x

=

0

factor and solve : 2x(x - 4 ) = 0  

x

=

0

,

x

=

4

substitute these values into y = 4 - x , to find corresponding values of y.

x = 0 : y = 4 - 0 = 4 → (0 , 4)

x = 4 : y = 4 - 4 = 0 → (4 , 0 )

These are the points of intersection with the line x +y = 4 and the circle  

x

2

+

y

2

=

16

Answer link

Объяснение:

4,5(52 оценок)
Ответ:
0894f
0894f
12.11.2022

ответ: 110.

Объяснение:

Максимально подробно.

В начале программы переменная s равна 0, n - 10.

Далее идет цикл "for" от 0 до n, то есть от 0 до 10.

Цикл "for" - последовательность команд, которые программа будет выполнять какое-то количество раз (в данном случае 11 раз:

для "i" равного 0,1,2,3,4,5,6,7,8,9 и 10).

Последовательность команд описывается между словами begin и end:

if і = n-i then s:=s+A[i]+A[i+1];

Рассмотрим подробнее эту строчку. В ней проверяется равенство:

i = n-i

Если это равенство верно, то программа переходит к инструкции, описанной после слова then: s:=s+A[i]+A[i+1];

Если же неверно - программа переходит к следующему значению i.

n - число постоянное и нигде не меняется, оно равно 10, то есть условие выглядит так:

i = 10-i

Когда такое возможно? "i" у нас меняется от 0 до 10 включительно. Посмотрим. Для этого мысленно продумаем весь ход работы программы. В начале i равно 0. Смотрим условие:

0 = 10 - 0

Неверно. 0 не равно 10. Далее программа переходит к следующему i, то есть единице.

i=1: 1 = 10 - 1

Тоже неверно. 1 не равно 9.

i=2: 2 = 10 - 2 Неверно. 2 не равно 8.

i=3: 3 = 10 - 3 Неверно. 3 не равно 7.

i=4: 4 = 10 - 4 Неверно. 4 не равно 6.

i=5: 5 = 10 - 5

Верно. Если это равенство верно, то программа переходит к инструкции, описанной после слова then: s:=s+A[i]+A[i+1];

Здесь к переменной "s", которая изначально равна нулю, прибавляется сама s, то есть 0, и значение элементов массива "A" под индексами i и i+1.

i у нас равно 5.

Следовательно: s=0+A[5]+A[5+1]

Или s=0+A[5]+A[6].

Посмотрим на массив:

(0,10,20,30,40,50,60,70,80,90,100)

A[0]=0, A[1]=10.

Значит пятый элемент равен 50, а шестой - 60.

Следовательно наше выражение:

s=0+A[5]+A[6] = 0 + 50 + 60 = 110.

Но на этом работа программы не закончена.

Цикл будет выполняться до тех пор, пока "i" не станет равно 10.

Идем дальше.

i=6: 6 = 10 - 6 Неверно. 6 не равно 4.

i=7: 7 = 10 - 7 Неверно. 7 не равно 3.

i=8: 8 = 10 - 8 Неверно. 8 не равно 2.

i=9: 9 = 10 - 9 Неверно. 9 не равно 1.

i=10: 10 = 10 - 10 Неверно. 10 не равно 0.

Теперь "i" равно 10, цикл больше выполняться не будет.

ответ: 110.

4,6(58 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ