Ивт 9 класс массив a из десяти элементов сформирован следующим образом паскаль for i: =1 to 10 do a[i]: =i*i решите там 7 столбиков куда записывается ответ

Не понял по поводу "7 столбиков". Потому, что алгоритм заполняет массив квадратами чисел от 1 до 10. То-есть на выходе вы получаете последовательность:
1
4
9
16
...
81
100

На языке программирования это может выглядеть так:
//Pascal
const n = 10;
var a:array[1..n] of integer;
i:integer;
begin
  for i:=1 to n do
     a[i]:=i*i
     writeln(a[i]);
end.

Program asd;
Var B,C,D:array[1..2500] of integer;
i,max,min,n:integer;
BEGIN
Writeln('Введите размерность одномерного массив D: ');
Readln(n);
max:=D[1];
for i:=1 to n do
begin
Write('Введите D[',i,']: '); Readln(D[i]);
If max<D[i] then max:=D[i];
end;
 Writeln('Максимальный элемент в массиве: ',max);
 Writeln('Положительный массив B из D: ');
 min:=D[1];
 For i:=1 to n do
  begin
  If D[i]>0 then
      B[i]:=D[i];
   If D[i]<0 then
     C[i]:=D[i];
   If min>C[i] then
   min:=C[i];
     Write(B[i]:4);
      end;
 writeln;
  Writeln('Отрицательный массив C из D: ');
 For i:=1 to n do
  begin
 Write(C[i]:4);
 end;
 Writeln();
  Writeln('Минимальный элемент в массиве С: ',min);
END.

Const N = 12;
const k = 0;
var temp : array [1..N] of integer;
    i, min, max, count : integer;
begin
    min := 1000; max := -1000;
    count := 0;
    {Заполнение массива данными}
    for i := 1 to N do
    begin
        write(i,'-й месяц: ');
        readln(temp[i]);
        if (temp[i] > max) then
            max := temp[i];
        if (temp[i] < min) then
            min := temp[i];
        {Если температура выше k - месяц считается теплым}
        if (temp[i] > k) then
            count := count + 1;
    end;
    writeln('Минимальная температура: ',min);
    writeln('Максимальная температура: ',max);
    writeln('Количество теплых месяцев: ',count);
    readln;
end.