3 задачи на языке Паскаль

1. Заполнить массив x нулями. (Это означает, что нужно составить фрагмент   программы,   после   выполнения   которого   все   значения x[1]..x[n]   равнялись   бы   нулю,   независимо   от   начального   значения переменной x.) Program massiv; Uses crt; Var i:integer; X:array[1..100] of real; Begin Clrscr; Write(`Введите кол­во элементов массива:`);  readln(n); Writeln(`Введите элементы массива:`);   For i:=1 to n Readln(x[i]); Writeln(`Новый (замененный) массив:`); For i:=1 to n do begin X[i]:=0;  write(x[i], ‘  ’); Writeln; Readln; End. 2. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2. Program arifmetic; Uses crt; Var a,b:integer; s:real; Begin Clrscr; Write(`Введите числа а и b:`);  readln(a,b); S:= (a+b)/2; Writeln(`Среднее арифметическое этих чисел равно `,s:7:3);   Readln; End. 3. Даны целые положительные числа A и B (A < B). Вывести все целые числа   от   A   до   B   включительно;   при   этом   каждое   число   должно выводиться   столько   раз,   каково   его   значение   (например,   число   3 выводится 3 раза). Program chisla; Uses crt; Var a,b, i:integer; Begin Clrscr; Write(`Введите числа а и b, причем а меньшее b:`);  readln(a,b); I:=2;x[1]:=a; While i>b do begin X[i]:=a+1;  For j:=1 to x[i] do write (x[i],’ ’); I:=i+1; writeln;  end; Readln; End.