1) дан произвольный массив, все элементы, которые кратны 5 или 3 увеличить на 10, остальные увеличить на 100. 2) Дан произвольный массив, создать новый массив из тех элементов исходного массива, который больше чем max+mix/2.
Geniuszly, Чтобы числа при выводе не слипались, если ты поставишь во втором случае 3, то будет что то вроде 300200145 вместо 300 200 145. Спрашивай еще что)
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.