Фрагмент программы на паскале: readln(a); b: =30; a=-a-3*b; if a

Код программы var       a: integer; function c(a: integer): integer; var       b: integer; begin       b : = 30;       a : = -a - 3 * b;             if a < b then               c : = b + 45       else               c : = b - 50; end; begin       for a : = 1000 downto -1000 do               if c(a) = -20 then begin                       writeln('a=', a, ' c(a)=', c(a));                       break;               end; end. вывод a=-120 c(a)=-20 аналитическое решение. видно что c: =b - 50 = 30 - 50 = -20 при a> =b -a-3*b> =b -a-3*30> =30-a-90> =30 -a> =120a< =-120

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.

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

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

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.