Информатика 9 класс сделать нужно через программу паскаль пригодность детали оценивается по размеру в, который должен соответствовать интервалу (a-±8 определить, имеются ли в партии из n деталей бракованные. если "да", то подсчитать их количество. иначе выдать отрицательный ответ.

var

 n, i, k: integer;

 a, b: real;

begin

 read(n, a);

 k := 0;

 for i := 1 to n do

 begin

   read(b);

   if (b < a - 8) or (b > a + 8) then

     k := k + 1;

 end;

 if k > 0 then

   write(k)

 else

   write('нет');

end.

1)var ma:array[1..3,1..3] of integer;
i,j,t:integer;
begin;
randomize;
readln(t);
writeln('Matrix:');
for i:=1 to 3 do
 begin;
  writeln;
   for j:=1 to 3 do
    begin;
     ma[i,j]:=random(10);
     write(ma[i,j]:4);
     ma[i,j]:=ma[i,j]*t;
    end;
 end;
writeln;
writeln('Final matrix:');
for i:=1 to 3 do
 begin;
  writeln;
   for j:=1 to 3 do
     write(ma[i,j]:4);
 end;
end.
2)var ma:array of array of real;
i,j,n,m,maxj,maxi:integer;
max:real;
begin;
readln(n);
readln(m);
setlength(ma,n+1);
for i:=1 to n do
setlength(ma[i],m+1);
max:=-2147483648;
writeln('Matrix:');
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to m do
    begin;
     ma[i,j]:=random(100)-50;
     write(ma[i,j]:4);
     if (ma[i,j]<0) and (ma[i,j]>max) then
      begin;
       max:=ma[i,j];
       maxi:=i;
       maxj:=j;
    end;
 end;
end;
writeln;
writeln('Max:',max);
writeln('Строка:',maxi);
write('Столбец:',maxj);
end.

Вот ещё варианты решения задач (покороче, без вложенных циклов):
1.
function kw(s:string; c:char):integer;
var sl:string; n,k,i:integer;
begin
n:=0; k:=0;
s:=s+'.';
for i:=1 to length(s) do
 if s[i] in [' ',',',';','.']
    then begin if k>0 then inc(n); k:=0; end
   else if s[i]=c then inc(k);
kw:=n;
end;
var st:string; c:char;
begin
st:='program,  begin,  procedure, var, div, array.';
c:='r';
writeln('m=',kw(st,c));
end.

2. Здесь анализируются только строчные английские буквы. При желании можно добавить заглавные англ. и русские. Всё будет аналогично.
procedure pk(s:string;k:integer);
var a:array['a'..'z'] of integer; i:integer; c:char;
begin
for c:='a' to 'z' do a[c]:=0;
for i:=1 to length(s) do
  if s[i] in ['a'..'z'] then inc(a[s[i]]);
for c:='a' to 'z' do if a[c]<k then writeln(c,' - ',a[c])
end;
var st:string; k:integer;
begin
st:='program,  begin,  procedure, var, div, array.';
k:=2;
pk(st,k);
end.