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

1. Д ан одномерный целочисленный массив. Заменить минимальный элемент массива цифрой 3, а каждый элемент с нечетным номером - цифрой 0.

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.