Вопрос 25

Опишите на русском языке или одном из языков программирования алгоритм вычисления разности максимального среди элементов, имеющих чётные значения, и максимального среди элементов, имеющих нечётные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и чётные, и нечётные элементы).

Вопрос 25

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от −1000 до 1000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести минимальное значение среди положительных элементов массива, не кратных 3. Если в исходном массиве нет элемента, значение которого положительно и не делится на 3, то вывести сообщение «Не найдено».

Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. 

N = 20
 DIM A(N) AS INTEGER
 DIM I, J, MIN AS INTEGER
 FOR I = 1 TO N
    INPUT A(I)
 NEXT I
...
 END

const 
    N = 20;
var
    a: array [1..N] of integer;
    i, j, min: integer;
begin
    for i := 1 to N do
        readln(a[i]);
    ...
end.

#include <iostream>
using namespacestd;
#define N 20
int main() {
    int a[N];
    int i, j, min;
    for (i = 0; i < N; i++)
        cin >> a[i];
...
}

алг
нач
    цел N = 20
    целтаб a[1:N]
    цел i, j, min
    нц для i от 1 до N
        ввод a[i]
    кц
    ...
кон

В качестве ответа Вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Free Pascal 2.4) или в виде блок-схемы. В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке).

Вопрос 25

Дан массив, содержащий 2018 положительных целых чисел, не превышающих 30 000. Необходимо найти в этом массиве количество элементов, которые кратны 7, а их десятичная запись заканчивается цифрой 3, и заменить каждый из таких элементов на это количество.

Напишите на одном из языков программирования программу для решения этой задачи. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке. Например, для исходного массива из 5 элементов 14 13 63 203 49 программа должна вывести числа 14 13 2 2 49, по одному числу в строке.

Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

CONST N=2018
 DIM A(N) AS INTEGER
 DIM I, K, M AS INTEGER
 FOR I = 1 TO N
    INPUT A(I)
 NEXT I
…
 END

const
    N=2018;
var
    a: array [1..N] of integer;
    i, k, m: integer;
begin
    for i:=1 to N do
        readln(a[i]);
    …
end.

алг
нач
    цел N=2018
    целтаб a[1:N]
    цел i, k, m
    нц для i от 1 до N
        ввод a[i] 
    кц
    …
кон

#include <iostream>
using namespacestd;
const int N=2018;
    int main(){
    int a[N];
    int i, k, m;
    for (i=0; i<N; ++i)
        cin >> a[i]; 
    …
    return 0;
} 

Вопрос 25

Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит значение 3-го положительного элемента массива (если из массива вычеркнуть все неположительные элементы, этот элемент стоял бы в получившемся массиве на третьем месте). Если в массиве меньше, чем три положительных элемента, вывести об этом сообщение.

Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. 

const
N = 40; 
var
a: array [l..N] of integer; 
i, j, k: integer; 
begin 
for i:=1 to N do 
readln(a[i]);
...
end.

N = 40
DIM A (N) AS INTEGER 
DIM I, J, К AS INTEGER 
FOR I = 1 TO N 
INPUT A (I) 
NEXT I
...
END

#include <iostream>
using namespacestd; 
#define N 40 
int main(void) 
{int a [N] ; 
int i, j, k; 
for (i = 0; i < N; i + +) 
cin >> a[i];
...
}

алг 
нач
цел N = 40 
целтаб а[1:N] 
цел i, j, k 
нц для i от 1 до N 
ввод a[i]
кц
...
кон

В качестве ответа вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например Borland Pascal 7.0) или в виде блок-схемы. В этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке).

Вопрос 25

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите

на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делится на 13. В данной задаче под парой подразумевается два подряд идущих элемента массива. Например, для массива из пяти элементов: 6; 2; 13; –26; 14 — ответ: 3.

Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается

не использовать некоторые из описанных переменных. 

CONST N AS INTEGER = 20
 DIM A (1 TO N) AS INTEGER
 DIM I AS INTEGER,
       J AS INTEGER,
       K AS INTEGER
 
 FOR I = 1 TO N
INPUT A(I)
 NEXT I
 ...
 END

const
    N = 20;
 var
    a: array [1..N] of integer;
    i, j, k: integer;
 begin
    for i := 1 to N do
        readln(a[i]);
    ...
 end.

алг
 нач
    цел N = 20
    целтаб a[1:N]
    цел i, j, k
    нц для i от 1 до N
        ввод a[i]
    кц
    ...
 кон

#include 
 #define N 20
 int main() {
    int a[N];
    int i, j, k;
    for (i = 0; i < N; i++)
        cin >> a[i];
    ...
    return 0;
 }

Вопрос 25

Дан массив, содержащий 2019 положительных целых чисел, не превышающих 15 000. Необходимо найти сумму минимального чётного и минимального нечётного элементов (если в массиве нет чётных или нечётных элементов, соответствующий минимум считается равным нулю), увеличить все элементы, которые меньше этой суммы, на её значение и вывести изменённый массив. Например, для исходного массива из пяти элементов — 30, 99, 27, 90, 42 — программа должна вывести числа 87, 99, 84, 90, 99 (сумма минимумов равна 57, все элементы, меньшие 57, увеличены на 57).

Напишите на одном из языков программирования программу для решения этой задачи.

Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных. 

CONST N=2019
 DIM A(N) AS INTEGER
 DIM I, K, M AS INTEGER
 FOR I = 1 TO N
    INPUT A(I)
 NEXT I
…
 END

const
    N=2019;
var
    a: array [1..N] of integer;
    i, k, m: integer;
begin
    for i:=1 to N do
        readln(a[i]);
    …
end.

алг
нач
    цел N=2019
    целтаб a[1:N]
    цел i, k, m
    нц для i от 1 до N
        ввод a[i] 
    кц
    …
кон

#include <iostream>
using namespacestd;
const int N=2019;
    int main(){
    int a[N];
    int i, k, m;
    for (i=0; i<N; ++i)
        cin >> a[i]; 
    …
    return 0;
} 
 

Вопрос 25

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от -10 000 до 10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число не делится на 7. В данной задаче под парой подразумевается два подряд идущих элемента массива. Например, для массива из пяти элементов: 13; 7; 26; -1; 9 — ответ: 4.

Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.  

CONST N AS INTEGER = 30
 DIM A (1 TO N) AS INTEGER
 DIM I AS INTEGER,
    J AS INTEGER,
    K AS INTEGER
 FOR I = 1 TO N
    INPUT A(I)
 NEXT I
...
 
 END

const
    N = 30;
var
    a: array [1..N] of integer;
    i, j, k: integer;
begin
    for i := 1 to N do
        readln(a[i]);
    ...
 
end.

#include <iostream>
using namespacestd;
#define N 30
int main() {
    int a[N];
    int i, j, k;
    for (i = 0; i < N; i++)
        cin >> a[i];
    ...
    return 0;
}

алг
нач
    цел N = 30
    целтаб a[1:N]
    цел i, j, k
    нц для i от 1 до N
        ввод a[i]
    кц
    ...
 
кон

Вопрос 25

N = 20 
 DIM A(N) AS INTEGER 
 DIM I, J, MAX AS INTEGER 
 FOR I = 1 TO N 
 INPUT A(I) 
 NEXT I 
...
 END

const 
 N = 20; 
var 
a: array [1..N] of integer; 
i, j, max: integer; 
begin 
for i := 1 to N do 
readln(a[i]); 
... 
end.

#include <iostream>
using namespacestd;
#define N 20 
int main() { 
int a[N]; 
int i, j, max; 
for (i = 0; i < N; i++) 
cin >> a[i];
... 
}

алг
нач
цел N = 20 
целтаб a[1:N] 
цел i, j, max 
нц для i от 1 до N 
ввод a[i] 
кц
... 
кон

Вопрос 25

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести произведение всех двузначных элементов массива с нечётной суммой цифр. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого является двузначным числом, и при этом сумма его цифр нечётна. Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. Исходные данные всегда подобраны так, что результат произведения не выходит за пределы объявленных типов данных.

N = 30 
 DIM A(N) AS LONG 
 DIM I, J, P AS LONG 
 FOR I = 1 TO N 
 INPUT A(I) 
 NEXT I 
 ... 
 END

const 
 N = 30; 
 var 
 a: array [1..N] of longint; 
 i, j, p: longint; 
 begin 
 for i := 1 to N do 
 readln(a[i]); 
 ...  
 end.

#include <iostream>
using namespacestd; 
#define N 30 
int main() { 
long a[N]; 
long i, j, p; 
for (i = 0; i < N; i++) 
    cin >> a[i]; 
...  
} 
 

алг 
нач 
цел N = 30 
целтаб a[1:N] 
цел i, j, p 
нц для i от 1 до N 
ввод a[i] 
кц 
... 
кон

В качестве ответа Вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например Free Pascal 2.4) или в виде блок-схемы. В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке).

Вопрос 25

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 0 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трёхзначных элементов массива, оканчивающихся на 0. Если в исходном массиве нет элемента, значение которого является трёхзначным числом и при этом не оканичается на 0, то вывести сообщение «Не найдено».

Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. 

N = 20
 DIM A(N) AS INTEGER
 DIM I, J, MAX AS INTEGER
 FOR I = 1 TO N
    INPUT A(I)
 NEXT I
...
 END

const 
    N = 20;
var
    a: array [1..N] of integer;
    i, j, max: integer;
begin
    for i := 1 to N do
        readln(a[i]);
    ...
end.

#include <iostream>
using namespacestd;
#define N 20
int main() {
    int a[N];
    int i, j, max;
    for (i = 0; i < N; i++)
        cin >> a[i];
...
}

алг
нач
    цел N = 20
    целтаб a[1:N]
    цел i, j, max
    нц для i от 1 до N
        ввод a[i]
    кц
    ...
кон

В качестве ответа Вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Free Pascal 2.4) или в виде блок-схемы. В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке).