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

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

Найти нужный

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

Необходимо отгадать слово, состоящее из 5 букв и записанное с помощью алфавита из 32 букв. Можно задавать вопросы ответом на которые будет "да" или "н... В ШКОЛЬНУЮ КОМАНДУ ПО ВОЛЕЙБОЛУ БЫЛО ОТОБРАНО НЕКОТОРОЕ КОЛИЧЕСТВО УЧЕНИКОВ ИЗ 64 ПРЕТЕНДЕНТОВ.СКОЛЬКО УЧЕНИКОВ БЫЛО ОТОБРАНО ,ЕСЛИ СООБЩЕНИИ О ТОМ ,К... Задача 1. Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. Получившийся файл был передан в город А по канал... файловая структура персонального компьютера наиболее наглядно может быть описан в виде 1-табличной модели 2- графической моделью 3- матемстической мод... В каком из перечисленных ниже предложений правильно расставлены пробелы между словами и знаками препинания? а) Пора, что железо:куй, поколе кипит! б)...