Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 11:24
637
1)Дан целочисленный массив из 20 элементов. Элементы массива вводятся с клавиатуры. Опишите алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа делятся на 3. В данной задаче под парой подразумевается два подряд идущих элемента массива.2) Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести максимальный элемент массива, который делится на 11 (наличие хотя бы одного такого элемента гарантируется).
ПАСКАЛЬ! ПОМОГИТЕ ПОЖАЛУЙСТА!
1
ответ
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.
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.
0
·
Хороший ответ
5 апреля 2023 11:24
Остались вопросы?
Еще вопросы по категории Информатика
Сколько раз выполняется цикл в фрагменте программы X:=8 WHILE X<20: X:=X+2...
На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом: 1) Строится двоичная запись числа N. 2) К эт...
среди приведённых ниже трёх чисел, записанных в разных системах счисления,найдите число,сумма цифр которого в десятичной записи наименьшая. В ответе з...
1. Какая лента используется, чтобы нарисовать фигуры в текстовом 2. Как рисуется прямая линия в программе Word? 3. Как нарисовать прямоугольник в прог...
СОСТАВИТЬ СХЕМУ X=A*B(верхнее подчёркивание)+A(верхнее подчёркивание)*B*C(верхнее подчёркивание) и всё это тоже верхнее подчёркивание там картинка эт...