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

Program Zadacha1; Const n=10; Var a: Array [1… n] Of Integer; b, i: Integer; BeginRandomize; For i: =1 To n Doa[i]: =Random (100); b: =0; For i: =1 To n DoIf a[i] Mod 3=a[i] Mod 5 Thenb: =b+1; WriteLn ('Массив: '); For i: =1 To n DoWrite (a[i], '); WriteLn; If b > 0 ThenWriteLn ('Результат: ', b) ElseWriteLn ('В массиве нет таких чисел'); ReadLn; End.Program Zadacha2; Const n=10; Var a: Array [1… n] Of Integer; b, i: Integer; BeginRandomize; WriteLn ('Начальный массив: '); For i: =1 To n DoBegina[i]: =Random (100); Write (a[i], '); End; WriteLn; b: =1; For i: =1 To n DoIf a[i] < a[b] Thenb: =i; a[b]: =3; For i: =1 To n DoIf i Mod 2=0 Thena[i]: =0; WriteLn ('Конечный массив: '); For i: =1 To n DoWrite (a[i], '); ReadLn; End.