В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Davidggg
Davidggg
07.10.2021 19:23 •  Информатика

Сместиться в точку 2,1
Опустить перо

Показать ответ
Ответ:
ilya3694444
ilya3694444
27.04.2022 00:18

исходный код на языке программирования pascal

const n = 10;

var

    a: array[1..n] of integer;

    i: byte;

    avrg: real;

    sum: integer;

begin

    randomize;

    for i: =1 to n do a[i]: =random(50)+1;

    sum : = 0;

    for i: =1 to n do sum : = sum + a[i];

    avrg : = sum/n;

   

    // весь массив

    for i: =1 to n do write(a[i]: 3);

    writeln;

   

    writeln('среднее арифм.: ',avrg: 4: 2);

   

    // больше avrg    

    for i: =1 to n do if a[i]< avrg then write(a[i]: 3);

    writeln;

end.

пример(ы) выполнения программы на языке pascal

13 23 45   2   9 28 47 30 18 12

среднее арифм.: 22.70

13   2   9 18 12

0,0(0 оценок)
Ответ:
SawBilly
SawBilly
10.12.2020 21:30

есть массив a из n чисел, к каждому числу массива жарасхан должен применить лишь одну операции  

1) добавить к числу один

2) отнять от числа один

3) добавить к числу ноль

к каждому элементу массива нужно применить одну их трех операции так, чтоы после применения операций ко всем элементам массива, количество одинаковых чисел в массиве стало максимальным.  

формат входных данных:

в первой строке входных данных дано одно целое число n - размер массива. во второй строке входных данных даны элемента массива a;

формат выходных данных:  

выведите одно целое число - максимальное количество одинаковых чисел в массиве после применения операций.

пример:

входные данные:  

7

3 1 4 1 5 9 2

выходные данные:  

4

замечание: в первом тесте можно изменить массив в такой вид: 2,2,3,2,6,9,2

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота