(программа паскаль) 1)заполните массив элементами арифметической прогрессии. её первый элемент и разность нужно ввести с клавиатуры. 2) заполните массив степенями числа 2( от 2(в первой степени) до 2(в n степени)

Насчет размера массива ничего, так что он задается константой n. а еще массив сразу выводится первая : const n=10; var a: array[1..n] of real;   r: real; begin read(a[1],r); write(a[1]); for var i: =2 to n do begin a[i]: =a[i-1]+r; write(' ',a[i]); end; end. вторая: const n=10; var a: array[1..n] of integer; begin a[1]: =2; write(a[1]); for var i: =2 to n do begin a[i]: =a[i-1]*2; write(' ', a[i]); end; end.

//произведение двух минимальных чисел в последовательности

begin

  var x: integer;

  read(x);

  var min1 : = maxint;

  var min2 : = maxint;

  repeat

    if x < = min1 then

    begin

      min2 : = min1;

      min1 : = x

    end

    else if x < min2 then

      min2 : = x;

    read(x);

  until x = 0;

  if (min1 < > maxint) and (min2 < > maxint) then

    print(min1 * min2)

end.

var c: array [1..20] of integer;

i,s1,s2: integer;

begin

s1: =0;

s2: =0;

for i: =1 to 20 do begin

write('ввод значения для c[',i,'] - ');

readln(c[i]);

if i< =10 then s1: =s1+c[i] else s2: =s2+c[i];

end;

if s1> s2 then writeln('сумма первых 10 элементов больше, чем последние 10 элементов')

else if s2> s1 then writeln('сумма последних 10 элементов больше, чем первые 10 элементов')

else if s1=s2 then writeln('первые 10 элементов равны последним 10 элементам');

end.

рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)