1. с клавиатуры последовательно вводятся десять чисел. написать программу на паскале,которая вычислит и выведет на экран сумму чисел,кратных 3. 2. с клавиатуры вводится число n. написать программу, которая вычислит и выведет на экран все его делители

101

366

Посмотреть ответы 2

Ответы на вопрос:

AnastasiaSokolovskay

Информатика

4,8(99 оценок)

Ввод с клавиатуры одномерного массива целых чисел и вывод его элементов на экран с противоположным знаком program massiv2; const n=10; type { раздел описания типов переменных. эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел } mas=array [1..n] of integer; { 1..n - тип индекса; для индекса выбран интервальный тип. то есть интервал целых чисел от 1 до n. где n определено в разделе const } var line: mas; { line - одномерный массив, его тип определен нами как mas } i: integer; {переменная, хранящая индекс элемента массива, к которому идет обращение }begin{ ввод массива с клавиатуры } for i: =l to n do { обращение к элементам массива происходит в цикле, по очереди } begin { начало цикла ввода элементов массива } write('введите элемент с индексом ' ,i,' : '); readln(line[i]) { обращаемся к i-му элементу массива (line[l],line[2] и т. д.)} end; { конец цикла ввода элементов массива }{ вывод элементов происходит также в цикле: } for i: =l to n do { перебираем все n элементов массива } write(-line[i]: 5); { 10 элементов выводятся в строку. выводим все элементы массива с противоположным знаком } writeln; { после вывода массива элементов - переход на новую строку } readln end.

stanstan199

Информатика

4,8(44 оценок)

Var i,n: integer; a: array of integer; begin setlength(a,10); write('исходный массив: '); for i: =0 to 9 do begin a[i]: =random(10); write(a[i],' '); end; writeln; write('преобразованный массив: '); for i: =0 to 9 do begin if not((i mod 2=0) and (a[i] mod 2=0)) then begin a[n]: =a[i]; n: =n+1; end; end; setlength(a,n); for i: =0 to n-1 do write(a[i],' '); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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