1)Дан целочисленный массив из 20 частей. Элементы массива вводятся с
1)Дан целочисленный массив из 20 частей. Элементы массива вводятся с клавиатуры. Опишите алгоритм, позволяющий найти и вывести количество пар частей массива, в которых оба числа делятся на 3. В данной задачке под парой предполагается два попорядку идущих элемента массива.
2) Дан целочисленный массив из 20 частей. Элементы массива могут принимать целые значения от 10 000 до 10 000 включительно. Опишите на одном из языков программирования метод, дозволяющий отыскать и вывести максимальный элемент массива, который делится на 11 (наличие желая бы 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 (абс(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]gt;max) then max:=a[i];
writeln(max);
End.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.