Написать программы в Pascal'е с использованием операторов варианта (циклов): 1. Даны целые числа а1, а2, ..., а9. Верно ли, что их сумма есть четное число? 2. Известны стоимости каждого из восьми предметов в двух наборах. Какой...

        1)   Program chetnost;  Uses Crt  const  arr: array[1..9] of integer=(8,5,3,7,4,1,22,34,15); {Наши числа от 1 до 9 }                                                                                                    {туда напишешь любые целые}                                                                                                     {которые препод укажет} var i,sum:integer;   begin      clrscr;         sum:=0;       for i:=1 to 9 do sum:=sum+arr[i];        if (sum mod 2) =0 then writeln('Их сумма чётное число ')                     else  writeln('Их сумма нечётное число ')         end.      2) Program Nabor;  Uses Crt  const  n1: array[1..8] of integer=(89,57,31,789,43,10,22,34); {стоимость товаров 1 набора }  const  n2: array[1..8] of integer=(890,51,31,79,43,10,2,31); {стоимость товаров 2 набора }                                                                                                             {туда напишешь любые  целые}                                                                                                          {которые препод укажет}  var sum1,sum2,i: integer; begin      clrscr;      sum1:=0; sum2:=0; for i:=1 to 8 do        begin             sum1:=sum1+n1[i];              sum2:=sum2+n2[i]          end;       if (sum1=sum2)  writeln('Стоимость наборов одинакова ');  if (sum1