1. Дан массив из 12 натуральных чисел. определить сумму 6 первых элементов массива.

2. Дан массив из 10 натуральных чисел. Определить количество элементов равных контрольному числу 7.

1)

program chik;

const n=12;

var i, s:integer;

a:array[1 ... 12]of integer;

begin

s:=0;

for i:=1 to n do

begin

read (a[i]) ;

if (i<7) then s:=s+a[i];

end;

writeln (s) ;

end.

2)

program chik;

const n=10;

var i, s:integer;

a:array[1 ... 12]of integer;

begin

s:=0;

for i:=1 to n do

begin

read (a[i]) ;

if (a[i]=7) then s:=s+1;

end;

writeln (s) ;

end.