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

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

Найти нужный

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

Объекты на рисунке образуют класс "Домики". Составь дерево деление данного класса на подклассы. Используй такие названия подклассов: одноэтажные, мног... ира потратила в книжном магазине 700 рублей на покупку книги она израсходовала 55 процентов этой сумме а на покупку блокнота потратила 10пооцентов. В... объём сообщения равен 11 Кбайт. Сообщение содержит 11 264 символа. какова мощность алфавита, с помощью которого записано сообщение?... Приведите примеры ситуаций,в которых осуществляется обработка информации,ведущая к: а) Получению новой информации; б) Изменению формы представления су... Скорость передачи данных по некоторому каналу связи равна 256 000 бит/с. Передача данных через это соединение заняла 2 минуты. Определить информационн...