Отметьте объекты классной комнаты: рабочий стол окно папка файл компьютер

Рабочий стол, окно, папка, компьютер

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.