1) дан произвольный массив, все элементы, которые кратны 5 или 3 увеличить на 10, остальные увеличить на 100. 2) Дан произвольный массив, создать новый массив из тех элементов исходного массива, который больше чем max+mix/2.
1. const nmax=100; var a: array[1..nmax] of integer; n,i,k: integer; begin write('Сколько элементов в массиве? '); readln(n); k:=0; writeln('Массив:'); for i:=1 to n do begin a:=random(99)+1; write(a,' '); if (a mod 3=0)or(a mod 5=0) then a+=10 else begin a+=100; end; end; writeln; writeln('Массив после:'); for i:=1 to n do write(a,' '); end.