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

Question

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

Answer 1

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];<br>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.