1)дан целочисленный массив из 20 элементов. элементы массива вводятся с клавиатуры. опишите алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа делятся на 3. в данной под парой подразумевается два подряд идущих элемента массива. 2) дан целочисленный массив из 20 элементов. элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. опишите на одном из языков программирования алгоритм, позволяющий найти и вывести максимальный элемент массива, который делится на 11 (наличие хотя бы одного такого элемента гарантируется). паскаль! !

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

mary309

08.09.2022 19:52

Для кодирования нотной записи используется 129 нот. Каждая нота кодируется одним и тем же минимально возможным количеством бит. Какое количество нот содержится в записи если информационный...

Nizam123

20.12.2021 03:32

Даны координаты двух точек на плоскости, требуется определить, лежат ли они в одной координатной четверти или нет. Формат входных данных Вводятся 4 числа: координаты первой точки...

Ольга1738

28.10.2022 21:40

Задача. Известно, что каждая страница текста содержит в среднем 32 строки по 64 символа и состоит из нескольких страниц. Для хранения символа используется алфавит мощностью 256 символов....

strelok11261

07.03.2020 10:39

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

benleo2001

24.04.2020 17:31

Как задать экспресс вопрос здесь?...

den111111111113

02.07.2022 13:57

У исполнителя Омега две команды, которым присвоен номера: 1. Прибавь 3 2.умножь на b (b- неизвестное натуральное число). Выполняя первую из них, Омега увеличивает число на экране...

ruslanlezgi

18.06.2022 19:13

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

olesa2003

04.03.2023 22:55

знаете, на андроиде есть вкладка экран и в ней есть полноэкранный режим, там должны быть приложения но их там нет, от силы вообще, телефон Realmi 5pro 10 android...

Амина9505

16.03.2021 19:34

3. Решите задачу, используя схему состава. В салоне небольшого самолёта летят 42 пассажира. Некоторые из них бишкекчане, остальные иногородние. Среди бишкекчан 9мужчин. некоторые...

kopiplay

11.03.2022 11:52

Задание 1 ( ). Число EE816 перевести в двоичную систему счисления.Задание 2 ( ).Число 615, перевести в двоичную систему счисления.Задание 5 ( ).Число T010011, перевести в восьмеричную...

Ответ:

vadimkvitko20

26.08.2020 15:42

1)
Var a:array[1..20] of longint;i,k:longint;
Begin
for i:=1 to 20 do
read(a[i]);
for i:=2 to 20 do
if (abs(a[i-1]) mod 3=0) and (abs(a[i]) mod 3=0) then k+=1;
writeln(k);
End.

2)
Var a:array[1..20] of longint;i,max:longint;
Begin
for i:=1 to 20 do
read(a[i]);
max:=-2000000000;
for i:=1 to 20 do
if (abs(a[i]) mod 11=0) and (a[i]>max) then max:=a[i];
writeln(max);
End.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку