Написать программы в 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
else writeln (' Второй набор дешевле ')

end.