программу написала в паскале, надеюсь подходит))
 program 1; var a: array[1..10] of integer;  i,q,max,min,l,k: integer; begin randomize;  for i: =1 to 10 do begin a[i]: =random(100);  write(a[i]: 3);  end;  writeln;  for i: =1 to 10 do if (a[i]> q) and (a[i]< l) then inc(k);  writeln('k=',k); end.
 2.  
 program 2; var a: array[1..10] of integer;  i,max,min,k,l: integer; begin  randomize;  for i: =1 to 10 do begin a[i]: =random(100);  write(a[i]: 3);  end;  writeln;  max: =a[1];  min: =a[1];  for i: =2 to 10 do begin if a[i]> max then begin  max: =a[i];   k: =i;   end;  if a[i]< min then begin  min: =a[i];   l: =i;   end;  end;  writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l); end.
Популярные вопросы