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.

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

3 апреля 2023 20:58

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

Найти нужный

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

При включении компьютера процессор обращается к… А) ОЗУ В) ПЗУ Б) винчестеру Г) дискете... Необходимо решить задачу! Помогите пожалуйста! Пять букв английского алфавита закодированы кодами различной длины. Эти коды представлены в таблице.... Пропускная способность некоторого канала связи равна 128 000 бит/с. Сколько времени займёт передача по этому каналу файла объемом 1,5 Мбайт?... Запиши недостающие слова Программирование - процесс создания - - - - разработки всех типов программного - - - - Этим занимаются - - - - Для зап... 2. Используя дополнительные источники, выясните, от каких слов образованы сокращения – HTTP язык: перевод: – URL язык: перевод:...