Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
2 апреля 2023 15:00
1082
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
·
Хороший ответ
4 апреля 2023 15:00
Остались вопросы?
Еще вопросы по категории Информатика
Условие Фано означает, что никакое кодовое слово не является началом другого кодового слова. Это обеспечивает возможность однозначной расшифровки зако...
ПОМОГИТЕ ПОЖАЛУЙСТА!!! Фрагмент электронной таблицы содержит числа и формулы. Запишите значения в ячейках диапазонов C2:C3, D2:D3, E2:E3, F2:F3, если...
Что вxодит, как правило, в состав системы программирования?...
В каком случае разные файлы могут иметь одинаковые имена? 1) если они имеют разный размер; 2)если они созданы в разное время; 3) если они находятся в...
package com.tetris.tetris;
import java.util.Random;
enum TetraminoType {
SQUARE_SHAPED,
T_SHAPED,
L_SHAPED,
LINE_SHAPED,...
Все предметы