Question

1.Дан одномерный целочисленный массив. Найти числа, которые при делении на 3 и 5 дают одинаковые остатки, посчитать их количество. Если такий чисел нет, то вывести соответствующее сообщение.1.Дан одномерный целочисленный массив. Заменить минимальный элемент массива цифрой 3, а каждый элемент с нечетным номером - цифрой 0.

Answer 1

Program Zadacha1;
Const n = 10;
Var a: Array [1..n] Of Integer;
b, i: Integer;
Begin
Randomize;
For i := 1 To n Do
a[i] := Random(100);
b := 0;
For i := 1 To n Do
If a[i] Mod 3 = a[i] Mod 5 Then
b := b + 1;
WriteLn('Массив:');
For i := 1 To n Do
Write(a[i], ' ');
WriteLn;
If b > 0 Then
WriteLn('Результат: ', b)
Else
WriteLn('В массиве нет таких чисел');
ReadLn;
End.

Program Zadacha2;
Const n = 10;
Var a: Array [1..n] Of Integer;
b, i: Integer;
Begin
Randomize;
WriteLn('Начальный массив:');
For i := 1 To n Do
Begin
a[i] := Random(100);
Write(a[i], ' ');
End;
WriteLn;
b := 1;
For i := 1 To n Do
If a[i] < a[b] Then
b := i;
a[b] := 3;
For i := 1 To n Do
If i Mod 2 = 0 Then
a[i] := 0;
WriteLn('Конечный массив:');
For i := 1 To n Do
Write(a[i], ' ');
ReadLn;
End.

Answer 2

1. Для решения данной задачи нам необходимо пройтись по каждому элементу массива и проверить, соответствует ли он условиям задачи. Для этого используем цикл, например, цикл for.

Пример кода на Python:

arr = [10, 15, 20, 25, 30, 35, 40, 45, 50]

count = 0
for num in arr:
    if num % 3 == num % 5:
        count += 1

if count > 0:
    print(f"Количество чисел, которые при делении на 3 и 5 дают одинаковые остатки: {count}")
else:
    print("Таких чисел нет")

2. Для решения данной задачи нам необходимо найти минимальный элемент массива и заменить его на 3, а также заменить каждый элемент с нечетным индексом на 0. Для этого также используем цикл for.

Пример кода на Python:

arr = [10, 15, 20, 25, 30, 35, 40, 45, 50]

min_index = arr.index(min(arr))
arr[min_index] = 3

for i in range(len(arr)):
    if i % 2 != 0:
        arr[i] = 0

print(arr)

Таким образом, мы можем решить обе задачи с помощью простых циклов и условий.