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

Массив на 13 значений заполнен трехзначными числами найти сумму и их количество в котрых есть цифра 2

👇
Ответ:
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(13,100,999); a.Println;
  var s:=a.Where(t->t.ToString.Contains('2'));
  Writeln('Сумма отобранных чисел равна ',s.Sum,
      ', их количество равно ',s.Count)
end.

Пример
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2
4,8(42 оценок)
Открыть все ответы
Ответ:
missapikova
missapikova
16.07.2022
Блок схемы не очень момню поэтому заменил блоки тэгами. Надеюсь, понятно.

<блок начало> Начало
<блок ввода данных> Ввести А, B </блок>
<блок действия> C:=(A+B)/2 </блок>
<блок дествия> D:=2*A*B</блок>
<блок проверки условия> A<b?</блок>
<если да>
<блок действия> A:=C</блок>
<блок дествия>B:=D</блок>
</если>
<если нет>
<блок действия> B:=C</блок>
<блок дествия>A:=D</блок>
</если>
<блок вывода>Вывести A,B<блок вывода>
<блок конца>Конец </блок>
4,7(48 оценок)
Ответ:
киса5558
киса5558
16.07.2022

Допустим, в языке есть встроенная функция

Min(a,b) которая определяет мин из двух значений. Тогда алгоритм выглядит так

 

х=Мin(a,b);

x=Min(x,c); 

 

А если нужно найти мин из N чисел, которые запрятаны в массив А(n), то так

 

x=999999999999999999999; // какое-то ОЧЕНЬ большое число

 

Для ц=1 по N цикл

       x = Min(x,A(ц));

КонецЦикла;

 

А что, если такой функции в языке нет, спросишь ты, тогда её нужно написать самому, например, так

 

Функция Min(a,b)

    Если a<b Тогда

          Возврат(а);

    Иначе

          Возврат(b);

     КонецЕсли;

КонецФункции

 

Вот и всЁ! Учитесь мыслить алгоритмически структурно, разбивая сложный алгоритм на ряд простых и понятных, и всё будет очень просто.

Успехов!

 

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