Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
3 апреля 2023 11:24
549
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
Остались вопросы?
Еще вопросы по категории Информатика
Что делать если пишет: The requested URL was not found on this server. Sorry for the inconvenience. Please report the following information to us. Th...
Шифр Виженера. Используя в качестве ключевого слово ВАГОН,закодируйте слова:АЛГОРИТМ,ПРАВИЛА,ИНФОРМАЦИЯ...
Я Прошу тебя, помоги, Bыручи друга, спаси !!! 1) Какую смысловую нагрузку несет блок (картинка снизу) а) блок ввода-вывода; б) блок начала алгоритма...
Помогите пожалуйста!!!!! Нужно написать программу в Паскаль, чтобы на экран выводился квадрат из звездочек....
Приведенное ниже сообщение содержит все буквы алфавита. Какое количество информации оно содержит?...
Все предметы