1)Дан целочисленный массив из 20 элементов. Элементы массива вводятся с клавиатуры. Опишите алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа делятся на 3. В данной задаче под парой подразумевается два подряд идущих элемента массива.2) Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести максимальный элемент массива, который делится на 11 (наличие хотя бы одного такого элемента гарантируется).
ПАСКАЛЬ! ПОМОГИТЕ ПОЖАЛУЙСТА!

1 ответ

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

Megamozg

2205

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.

Хороший ответ

4 апреля 2023 15:00

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке... В корзине лежат белые и черные шары. Среди них 18 черных шаров. Сообщение о том, что из корзины достали белый шар, несет 2 бита информации. Сколько вс... слово арка закодировано числовой последовательностью 0100100010 причем коды согласных и гласных букв имеют различную длинну какое слово по этому коду... Перевести число 11101 из двоичной системы счисления в десятичную... Написать программу нахождения суммы большего и меньшего из 3-х чисел.для "паскаль"...