1.Дан одномерный целочисленный массив. Найти числа, которые при делении ** 3 и 5 дают...

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.