program count_cond_1;
var
k, i: integer;
a: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(100);
k:=0;
for i:=1 to 10 do
if a[i]>50 then k:=k+1;
write('k=', k);
end.
program count_cond_2;
var
s, i: integer;
a: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(100);
s:=0;
for i:=1 to 10 do
if (a[i]>50) and (a[i]<60) then s:=s+a[i];
write('s=', s);
end.
program count_cond_3;
var
i, x: integer;
a: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(100);
write('Введите x:');
readln(x);
i:=0;
repeat
i:=i+1;
until (a[i]=x) or (i=10);
if a[i]=x then write(i) else write('Нет');
end.