Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Ключ для indexNow
Скрипт от рекламы
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
akuznecov8989
06.05.2022
?>
Напишите программу в питоне, чтобы нарисовать !
Информатика
Ответить
Ответы
Chernaya
06.05.2022
Const n=12; var a: array[1..n] of integer; avg: real; i: byte; begin writeln('введите массив из ',n, 'элементов'); i: =0; avg: =0; while i< n do begin i: =i+1 ; read(a[i]); avg: =avg+a[i]; end; avg: =avg/n; i: =0; writeln('исходный массив'); repeat i: =i+1; write(a[i]: 5); until i> =n; writeln; writeln('отредактированный массив'); i: =0; repeat i: =i+1; if a[i]< avg then a[i]: =3; write(a[i]: 5); until i> =n; end.
natapetrova20017
06.05.2022
Const n = 10; var x: array[1..n,1..n] of integer; i,j,k,xmin: integer; begin randomize; writeln('исходный массив'); xmin: =32767; for i : = 1 to n do begin for j : = 1 to n do begin k: = random(1001); x[i,j]: =k; write(x[i,j]: 5); if (k mod 2=0) and (k mod 3< > 0) then if xmin> k then xmin: =k end; writeln end; writeln('минимальное четное, не кратное 3: ',xmin) end. тестовое решение: исходный массив 804 425 286 223 93 517 955 301 708 171 934 347 789 960 195 784 651 76 498 402 360 170 940 62 428 226 959 173 129 723 232 732 777 152 56 631 974 17 620 271 61 314 974 787 70 574 756 856 232 497 385 34 25 652 966 634 486 224 796 868 558 781 171 985 940 201 570 636 903 564 810 633 457 227 341 45 196 153 992 854 470 103 942 633 338 197 707 125 187 423 144 750 221 753 713 280 143 989 847 869 минимальное четное, не кратное 3: 34
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу в питоне, чтобы нарисовать !
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Пользователь вводит целые числа, заканчивая ввод числом 0. подсчитать, сколько из введенных чисел нечетных, но при этом не делящихся на 5.
Автор: symkifm
У яких режимах можна відкрити запит у БД?
Автор: steam22-9940
Нужно дать ПОДРОБНОЕ объяснение каждой строке в программе на Pascal через //. Пример: begin //Запускаем программу Сама задача: var year: integer; //Назначаем тип переменной для переменной year begin /...
Автор: Alekseevich_Elena
Как сделать стоп моушен на 360 фотографий, на 30скекунд как алые паруса - типо кораблик плывëт по разным местам Россий ( чтобы сделать по быстрому, не на 2-ку)
Автор: svetkaiv
Python.дано натуральное число n. поменять порядок цифр числа n на обратный
Автор: ilyatamurov
Назови преимущества беспроводной сети (2-правильный ответа) * Ограниченность радиуса действия сетиВысокая чувствительность к электромагнитному излучениюиспользование сети без прокладки проводовМожно р...
Автор: Andrei Morozov
В одной из кодировок каждый символ кодируется 8 битами. Вова написал текст (в нём нет лишних пробелов): «Белка, сурок, слон, медведь. Газель, ягуар, крокодил, аллигатор — дикие животные». Затем ...
Автор: Maksimova1320
Какой минимальный объем видеопамяти необходим для хранения64 -цветного изображения, если разрешающая дисплея 350 х 200
Автор: Егорова
Написать программу в c# выведите на экран n раз фразу "silence is golden". число n вводит пользователь.
Автор: Poroskun
1. Дано натуральное число n, действительное х. Вычислить: Sin x + Sin x ² + … + Sin x ^
Автор: Жуков219
Даны две переменные А и В. Если значения не равны, тогда получить новые значения А и В путем сложения данных ранее значений, иначе оставить значения А и В без изменений. паскаль
Автор: okykovtun31
2. Напишите программу, которая при наборе с клавиатуры названия страны выводит на экран название столицыданной страны и численность населения, проживающегоВ нейкак можно понятнее)
Автор: emmakazaryan290
Привидите пример, результат тестового выполнения программы: Program Example:var I:integer;beginfor I:=1 to 10 dowrite (random (50):4)end.
Автор: srgymakarov
Жау Ұсынылған суреттегі бергіштің атауын анықта. аяси гі бас шада ақса руашь не егін - әскер мыста зметін ндыру рып о Патш Жоғарғ көмек Олард к жұмы ты. Але рді жабд рғыс Ми H және о түс бергіші арды ...
Автор: zoosalon-hollywood5
Напишите программу на авс паскаль .net которая определяет является ли число х трёхзначным и чётным
Автор: Вадим-Рашад323
▲