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*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Что защищает твой компьютер от вирусов и потери данных? 1) обновление программ 2) антивирусная программа 3) фаервол 4) обновление операционной системы 5) уровень компьютерной грамотности
Автор: krutikovas
Какие требования необходимо выполнять при создании реферата? 1)Размеры полей страницы (не менее): - правое — 30 мм (для замечаний преподавателя), - верхнее, нижнее, левое по 20 мм. 2)Отступ первой ...
Автор: pavtrusov
Незнайка читает только книги александра волкова, в которых имеются цветные иллюстрации. кроме того, для него важен объём книги число страниц должно быть не больше 200. какие книги возьмёт незнайка в...
Автор: drozd228758
ВЫПОЛНЕНИЕ: 00:00ТЕКСТ ЗАДАНИЯОсновное назначение электронных таблицредактировать и форматировать текстовые документыхранить большие объемы информациивыполнять расчет по формулам
Автор: LesnovaVeronika1830
Придумать красфорд на тему информатика
Автор: amxvel7596
Напишите на паскале игру «лотерея». 1. программа пользователя и просит его ввести любое целое семизначное число. 2. программа разбивает введённое пользователем число на 7 цифр, например, если польз...
Автор: Ladyby6224
Встроке заменить пробельные символы знаком звездочки ("*" если встречается подряд несколько пробелов, то их следует заменить одним знаком "*", пробелы в начале и конце строки удалить. с# форма
Автор: vasavto1
Дано целое число а и натуральное число n. найдите a^n. программу напишите в паскале через while или repeat.
Автор: mihalevskayat
Вопросы для размышления 1. Что ты понимаешь под коррекцией изображения?2. Как ты считаешь, в чем заключается основная цель примененияэффектов к изображению?3. Какой эффект, не входящий в список эффе...
Автор: zakupki
Порядок действий для уменьшения размера фотографии: 1.выделить фотографию 2.еажать на круглый маркер в любом углу фотографии и, не отпуская мышку, тянуть к центру фотографии. 3.отпустить мышку, когда...
Автор: ivstigres65
Составьте программу(паскаль) для нахождения площади и периметра треугольника
Автор: moscow053988
Доклад на тему основные этапы развития икт !
Автор: tushina2020
Установите соответствие: 1) базовое системное по а) операционная система 2) утилиты б) программа диагностики дисков в) антивирусная программа г) операционная оболочка д) программа архивации данных e) ...
Автор: bespalovaannaanna
Найти среднее арифметическое значение элементов заданного массива размером 15. преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение turbo pascal
Автор: misstimarina2016
▲