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

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

Найти нужный

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

1)Редактирование текста представляет собой: а) процесс внесения изменений в имеющийся текст б) процедуру сохранения текста на диске в виде текстовог... Дано четырехзначное число. Проверить, явояется ли число счастливым. Через блок-схему надо решить... Запишите в развёрнутой форме числа: а) 143, 511; б) 143511; в) 143511; г) 1435, 11... Во входных данных строка из чисел, разделённых пробелом. Напишите программу, которая считывает данные и сохраняет их в список, находит максимальное... С клавиатуры вводятся имена известных людей или брендов, с которыми сотрудничала компания "Вау Хауз". Каждое имя с новой строки. Символ окончания ввод...