Заполнить массив нулями. Количество элементов массива произвольное; Заполнить массив удвоенным значением индексов. Количество элементов массива произвольное. Дан массив из 10 элементов. Найти количество четных элементов; Дан массив из 15 элементов. Все его элементы увеличить в 2 раза; Дан массив из 100 элементов. Определить на сколько максимальный элемент больше минимального — Pascal(Паскаль)

const Max=100;
var a:array [1..Max] of byte;
    i,n:integer;
begin
  writeln('Введите размерность массива ');
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=0;
      write(a[i],' ');
    end;
  readln;
end.

const Max=100;
var a:array [1..Max] of byte;
    i,n:integer;
begin
  writeln('Введите размерность массива ');
  readln(n);
  for i:=1 to n do
    begin
      writeln('Введите элемент №=',i);
      readln(a[i]);
    end;
  for i:=1 to n do
    begin
      a[i]:=i*2;
      write(a[i],' ');
    end;
  readln;
end.

uses crt;
const Max=10;
var a:array [1..Max] of byte;
    i,k:integer;
begin
  randomize;
  for i:=1 to Max do
    begin
      a[i]:=random(20);
      write(a[i],' ');
    end;
  for i:=1 to Max do
    begin
      if a[i] mod 2=0 then
      inc(k);
    end;
  writeln;
  writeln('В массиве ',k,' четных элементов');
  readln;
end.

uses crt;
const Max=15;
var a:array [1..Max] of byte;
    i,k:integer;
begin
  randomize;
  for i:=1 to Max do
    begin
      a[i]:=random(20);
      write(a[i],' ');
    end;
  writeln;
  for i:=1 to Max do
    begin
      a[i]:=a[i]*2;
      write(a[i],' ');
    end;
  readln;
end.

uses crt;
const MaxN=100;
var a:array [1..MaxN] of integer;
    i,k,Max,Min:integer;
begin
  clrscr;
  randomize;
  for i:=1 to MaxN do
    begin
      a[i]:=random(100);
      write(a[i],' ');
    end;
  Max:=a[1];
  Min:=a[1];
  for i:=1 to MaxN do
    begin
      if a[i]>Max then
        Max:=a[i];
      if a[i]<Min then
        Min:=a[i];
    end;
  writeln;
  writeln('Ответ ',Max-Min);
  readln;
end.